Здравствуйте. Я хочу заменить текст чужой программы на свой код.
Код:
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: Пользуемся тегами!
файл чужой программы перестает работать.