Прикрепить к чужом ЕХЕ строку (или ресурс), а потом прочитать её

[TwiX]

Возможно ли это?

[Пепел Феникса]

в конце пиши

стоп, а прочитать потом той же программой что и записала, или же должен прочесть тот самый exe?

[TwiX]

Той же прогой. А в конец как писать? Через StringList пойдёт?

[Пепел Феникса]

TStream(точнее TFileStream)
сначало делаем seek(0,soFromEnd)
потом пишем, главное помнить размер своих данных(их смещение от конца файла)
это можно вычислить и записать как последние 4 байта.

[Stilet]

Той же прогой

Той же не выйдет...

[bitSoft]

Добавление данных в EXE файл и их получение
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; 

procedure TForm1.SaveClick(Sender: TObject); 
var 
 aStream: TMemoryStream; 
begin
 aStream := TMemoryStream.Create; 
 Memo1.Lines.SaveToStream(aStream); 
 AttachToFile('Test.exe', aStream); 
 aStream.Free; 
end; 

procedure TForm1.LoadClick(Sender: TObject); 
var 
 aStream: TMemoryStream; 
begin 
 aStream := TMemoryStream.Create; 
 LoadFromFile('Test.exe', aStream); 
 Memo1.Lines.LoadFromStream(aStream); 
 aStream.Free; 
end;

Отуда...