Добавление информации в ехе

[PONKA]

Можно ли добавить в ехе файл информацию и как это сделать?

[SERG1980]

Какую?
Попробуйте: вглавном меню делфи Project->Options. Там можно изменить иконку, номер версии имя компании(автора) разработчика и другое

[PONKA]

Нужно добавить в ехе файл определенное число и потом его прочитать

[Stilet]

Почему именно в EXE? Спрятать? Бесполезно - найдут
Проще в ИНИ файл или в текстовый файл. Можно даже защифровать коли надо.

Ну эж если в EXE попробуй почитай про ресурсы из серии UpdateResource, Я точно не знаю, но говорят что ими можно в твой exe пихать инфу.

[FaTaL]

А в какой вообще ехе то? совершенно в чужой?

[Crivel]

Если вам нужно добавить в чужую программу, то вот -
http://Jurnal-programmist.at.tut.by/Ishod/Info.zip

[Ozerich]

интересно а если сделать как предлагает Crivel то ехе не перестанет работать?

[Карась]

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

интересно а если сделать как предлагает Crivel то ехе не перестанет работать?

А как вообще это должно работать?

const
FileName = 'C:\Documents and Settings\P4\Ðàáî÷èé ñòîë\algebra.exe';
// написанно указать полный путь.... Вроде речь идёт об exe.....

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Bevel1: TBevel;
    Button2: TButton;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  F1 : TextFile; // Текстовый фаил....
  Metka : string;
  i : Integer; 

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: Tobject); 
begin
AssignFile(F1,FileName); // Что скажет компилятор на эту строку при попытке выполнить?
Append(F1); 
WriteLn(F1,Metka);
WriteLn(F1,Metka);
WriteLn(F1,Memo1.Lines.Text); 
CloseFile(F1);
end;

[NikLik]

у меня этот способ нормально работает...честно говоря, я немного удивлён

[zetrix]

Немного удивлён вашему недоумению.
Конечно будет работать. Один из вариантов распостранения вирусов.