[v1s2222]

Здравствуйте!
Есть вопрос, помогите разобраться...
Есть 2 файла, 1 из них - РЕ (ЕХЕ), 2 - мой (например *.my),
как можно из моей программы вставить 2 файл в тот 1, причём чтоб после открытия 1 файла (из проводника), он смог "сообразить", что в него что-то записали и то что записали сохранить на жесткий диск.

Вот примеры которые я нашел (работают, но не особо подходят):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

function AttachToFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean; var  aStream: TFileStream;  iSize: Integer; begin  Result := False;  if not FileExists(AFileName) then  Exit;  try  aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite);  MemoryStream.Seek(0, soFromBeginning);   aStream.Seek(0, soFromEnd);  aStream.CopyFrom(MemoryStream, 0);  iSize := MemoryStream.Size + SizeOf(Integer);  aStream.Write(iSize, SizeOf(iSize));  finally  aStream.Free;  end;  Result := True; end;   function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean; var  aStream: TFileStream;  iSize: Integer; begin  Result := False;  if not FileExists(AFileName) then  Exit;    try  aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);  aStream.Seek(-SizeOf(Integer), soFromEnd);  aStream.Read(iSize, SizeOf(iSize));  if iSize > aStream.Size then  begin  aStream.Free;  Exit;  end;  aStream.Seek(-iSize, soFromEnd);  MemoryStream.SetSize(iSize - SizeOf(Integer));  MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize));  MemoryStream.Seek(0, soFromBeginning);  finally  aStream.Free;  end;  Result := True; end;

Помогите, очень надо!

[v1s2222]

Блин люди, помогите!) очень надо...

[Admin]

http://www.delphisources.ru/pages/so.../exeinexe.html - Оно?

[v1s2222]

Сообщение от Admin

http://www.delphisources.ru/pages/so.../exeinexe.html - Оно?

Спасибо. В принципе оно, но не совсем.
Та программа, что вы показали тупо склеивает 2 файла в один, а когда этот один запустить то запуститься маленький распаковщик, который те запакованные 2 файла запишет рядом с собой, а это не совсем то, что нужно.
Объясню еще раз (может ответит хоть кто-то...):
Мне надо записать 1 файл (можно сказать, текстовый) во 2 файл (ЕХЕ). После этого, если запустить ЕХЕ, то он должен при открытии узнать, что в него что-то записали и то что записали сохранить на жесткий диск (тобишь должен в результате быть 1 ехе файл, который при открытии записанный в него файл сохранял на жесткий диск).

ЗЫ Пишу не вирус!

[lmikle]

Ресурс спасет отца русской демократии. сохрани свой файл в ресурс и вкомпилируй в исполняемый файл. Далее, файл читает этот ресурс как поток и сохраняет его. Это если экзешник твой.

Если экзешник не твой, то только по предложенному выше методу. Тебе надо будет просто поправить загрузчик, что бы он распаковал оба файла и запустил исполняемый. Других вариантов тут нет.

[v1s2222]

Спасибо, буду пробовать.