[Falcon01]

Здравствуйте. Я хочу заменить текст чужой программы на свой код.

Код:

Var
 f1,f2:file;
 buf:array [1..2000];
begin
 filemode:=0;
 assignfile(f1,' файл нашей программы.exe');
 reset(f1); blockread(f1,buf,0);
 closefile(f1);
 assignfile(f2,'файл чужой программы .exe');
 rewrite(f2);
 blockwrite(f2,buf,0);
 closefile(f2);
end;

Admin: Пользуемся тегами!

файл чужой программы перестает работать.