Нет, ЕХЕ будет спокойно запускаться, т.к. дописываем текст после программного кода.
Сюда выложить не могу, т.к. исходник больше, чем можно загружать на форум. Я лучше опишу тут как использовать эти функции если кому надо:
Код:
// SAVE to file:
var
aStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
Memo1.Lines.SaveToStream(aStream);
if not FileExists('111.exe') then showmessage('error!!!');
AttachToFile('111.exe', aStream);
aStream.Free;
Теперь загрузка:
Код:
var
aStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
if not FileExists('111.exe') then showmessage('error!!!');
LoadFromFile('111.exe', aStream);
Memo1.Lines.LoadFromStream(aStream);
aStream.Free;
Где "111.ехе" - программа для "опытов".