[ZXCCXZ]

Сообщение от AND_REY

Если по байтно то можно так:

Код:

Var
 F, G: File of Byte;
 B: Byte;
begin
AssignFile(F, 'C:\in.exe');
AssignFile(G, 'C:\out.exe');
Reset(F,1);
Rewrite(G);
While Not Eof(F) Do
 begin
  Read(F, B);
  Write(G, B);
 end;
CloseFile(F);
CloseFile(G);
end;

Нужно указывать, что размер каждой записи будет 1 байт. Иначе программа будет считывать по 128 байт за раз(по умолчанию).