[DroNNN]

Кто нибудь может объяснить как можно на 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: Ясно!