[Falcon01]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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]

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

Код:

1	rewrite(f2);

на

Код:

1	reset(f2);

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

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