Показать сообщение отдельно
  #2  
Старый 20.09.2008, 13:17
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Самый простой вариант.
Т.к тебе необходимо вписать строку в исполняемый файл можно поступить следующим образом, просто напросто вписав ее в конец исполняемого файла. Вот как это можно сделать.
Код:
var Dest:TMemoryStream;
  Text:ShortString;
begin
  Dest:=TMemoryStream.Create;
  Dest.LoadFromFile('Имя исполняемого файла');
  Dest.Position:=Dest.Size;
  Dest.Write(Text,$FF);
  Dest.SaveToFile('Имя куда следует сохранить');
  Dest.Free;
end;
Чтобы полученный экзешник мог прочесть эту инфу
Код:
var _Self:TFileStream;
  Text:ShortString;
begin
  _Self:=TFileStream.Create(Application.Exename,fmOpenRead);
  _Self.Position:=_Self.Size-$FF;//это важно
  _Self.Read(Text,$FF);
  _Self.Free;
  SHowMessahe(Text);
end;
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием