Добавлено (29.12.2012, 15:55)
---------------------------------------------
Buf: array[1..2000] of byte;
nr,nw:longint;
begin
filemode:=0;
assignfile(f1,'File1.exe');
reset(f1);
blockread(f1,buf,0);
closefile(f1);
assignfile(f2,'File2.exe');
rewrite(f2);
blockwrite(f2,buf,3);
closefile(f2);
end;

А так размер File2.exe меняется на 384 байта,размер тот-же что и у файла File2.exe но только в байтах.