20.06.2008, 19:17
|
Прохожий
|
|
Регистрация: 06.04.2008
Сообщения: 23
Репутация: 10
|
|
Склеить два файла так чтобы запускались оба
Кто нибудь может объяснить как можно на Delphi сделать программу которая склеивает два файла чтоб при запуске запускались оба? (С помощью Blockread и Blockwrite не получается т.к. запускается только один файл.Может что-то стоит добавить или исправить или удалить, вот исходник:
Код:
AssignFile(f,'C:\1.exe');{Первый файл}
AssignFile(f2,'C:\finally.exe'); {Исходный, склеинный первый и второй}
Reset(f,1);
Rewrite(f2,1);
while not eof(f) do
begin
BlockRead(f,buf,sizeof(buf),done);
BlockWrite(f2,buf,done);
Application.ProcessMessages;
end;
CloseFile(f);
AssignFile(f,'C:\2.exe');{Второй файл}
Reset(f,1);
done:=FileSize(f);
BlockWrite(f2,done,4);
while not eof(f) do
begin
BlockRead(f,buf,sizeof(buf),done);
BlockWrite(f2,buf,done);
Application.ProcessMessages;
end;
CloseFile(f);
CloseFile(f2);
Admin: Пользуемся тегами!
DroNNN: Ясно!
|