Image. внедрение картинки в тело программы.

[Pavarotti]

Всем привет.
Такой вероятно немного глупый вопросик.
Существует программка, состоящая только из exe-файла. На ней есть картинка, которую можно изменить, посредством такого вот нехитрого кода:

procedure TForm1.Changepic1Click(Sender: TObject);
begin
if(OpenPictureDialog1.Execute) then
RxGIFAnimator1.Image.LoadFromFile(O penPictureDialog1.FileName);
end;

Проблема в том, что если перезапустить программку, то выдается картинка прописанная во время создания программы, а не та, что выбрана в последний раз пользователем.

Догадываюсь, что такая проблема обычно решается через сохранение в отдельном файле и вывод графического изображения.
Можно ли этот процесс все же реализовать через внедрение новой выбранной картинки в тело exe-файла, каждый раз когда пользователь подгружает другую картинку в программку?

[Serge_Bliznykov]

если по простому ответить - то нет - нельзя.

[Aliens_wolfs]

Pavarotti а не проще ли сохранить путь и название картинки например в ini файл либо в реестр, а затем при перезапуске программа будет загружать нужную картинку из информации на нее с ini файла или реестра.
Или вы хотите внедрить ее в чужое тело?
Судя по вашему коду, вы картинку грузите в свой поект, так есть ли смысл внедрения?

Ну а проще сделать примерно так:

 //прочитать текстовые данные из ini файла
Function ReadStringIniFile(const IniFile, Section, Ident: String; Default: String=''): String;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(IniFile);
  result := Ini.ReadString(Section, Ident, Default);
  Ini.Free;
end;

 //Записать текстовые данные из ini файла
procedure WriteStringIniFile(const IniFile, Section, Ident: String; Default: String);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(IniFile);
  Ini.WriteString(Section, Ident, Default);
  Ini.Free;
end;

procedure TForm1.Changepic1Click(Sender: TObject);
begin
if(OpenPictureDialog1.Execute) then
begin
//Сохраняем инфу о картинке в ini файл
WriteStringIniFile('MyIniFile.ini', 'OptionImage', 'Image', OpenPictureDialog1.FileName);
RxGIFAnimator1.Image.LoadFromFile(OpenPictureDialog1.FileName);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
FileName: String;
begin
//Читаем инфу о картинке с ini файла
FileName:=ReadStringIniFile('MyIniFile.ini', 'OptionImage', 'Image', '');
if FileExists(FileName) then
RxGIFAnimator1.Image.LoadFromFile(FileName);
end;

[Pavarotti]

Большое спасибо за советы. В конечном итоге я так и реализовал прогу через лоады и сэйвы.

procedure TForm1.Changepic1Click(Sender: TObject);
begin
if(OpenPictureDialog1.Execute) then
RxGIFAnimator1.Image.LoadFromFile(O penPictureDialog1.FileName);
if not DirectoryExists('C:\Temp') then ForceDirectories('C:\Temp');
if FileExists('C:\Temp\1989.gif') then DeleteFile('C:\Temp\1989.gif');
RxGIFAnimator1.Image.SaveToFile('C: \Temp\1989.gif');
RxGIFAnimator1.Image.LoadFromFile(' C:\Temp\1989.gif');
end;