[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: Пользуемся тегами!

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

[:S.p.a.m.]

Я точно не помню, но в blockread 3-ий параметр сколько считывать.
И вообще, как мне кажется этот код будет (в работоспособном состоянии) просто перезаписывать файл, проще будет удалить второй и сделать копию первого, всего то 2 строчки.

[lmikle]

Вообще-то, есть функция CopyFile.

[PhoeniX]

хм... а как мне кажется, если заменить

Код:

rewrite(f2);

на

Код:

reset(f2);

то этот файл останется такого же размера, но будет выполнять функции 1... не вируса пишем, товарисЧ?

и да, в блокриде 3й параметр - сколько читаем... со справкой не дружим?