Создание ЕХЕ'шника из программы

[xStill]

Добрый день!

Проблема такая: программа должна компилировать новый *.exe файл. Файл будет создаваться по шаблону: форма+картинка на ней. Т.е. при создании нового ЕХЕ'шника меняться будет только картинка - все остальное (форма, размеры и т.п.) не меняется.
Собственно вопрос: обязательно ли писать для этого свой компилятор? Или можно заменить картинку в ехе другим методом? (знаю, что вопрос глупый, так что не бейте меня ногами )

[mss]

> обязательно ли писать для этого свой компилятор?

Совершенно необязательно.
Мало что ли существующих компиляторов ?
Да и собственно компилятор тут вряд ли нужен)

> можно заменить картинку в ехе другим методом?

Можно если есть открытый документированный доступ к ресурсу, где хранится картинка.

[xStill]

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

> Да и собственно компилятор тут вряд ли нужен)

А можно об этом поподробнее? Буду крайне благодарен! (только изображение должно быть вшито в ехе'шник)

[mss]

> можно об этом поподробнее?

Подробности напрямую зависят от того твой ли собственный это проект, компиляция либо иные действия над которым должны приводить к генерации исп.модуля в формате exe

[SNUPY]

Эмм.. я с ресурсами не в ладах.... могу посоветовать так:

Загрузка данных (в данном случаи изображения) из конца Exe-шника:

procedure TForm1.FormCreate(Sender: TObject);
var
  f:TFileStream;
  f1:TMemoryStream;
  i:int64;
begin

  f:=TFileStream.Create(Application.ExeName,fmOpenRead);

  try
    //сдвигаем указатель на размер Int64
    f.Position:=f.Size-SizeOf(Int64);

    //няяяя.... узнаем размера рисунка
    f.Read(i,SizeOf(Int64));

    //сдвигаем указатель... короче говоря теперь он в заправдашнем конце exe-Шника
    f.Position:=f.Size-SizeOf(Int64)-i;
    f1:=TMemoryStream.Create;
    try
      // дергаем рисунок в память
      f1.CopyFrom(f, i);

      // грузим из памяти рисунок
      Image1.Picture.Bitmap.LoadFromStream(f1);

    finally
      // изгоним Демонов ^__^
      f1.Free;
    end;
  finally
    f.Free;
  end;
end;

Приложение для загрузки в конец файла данных:

procedure TForm1.Button1Click(Sender: TObject);
var
  f, f1:TFileStream;
  i:int64;
begin
{Edit1.Text — адрес того что хотим загрузить, т.е. адрес изображения
Edit2.Text — адрес того в что мы хоти загрузить, адрес ехе-шника
}
  f:=TFileStream.Create(Edit1.Text,fmOpenRead);

  try
    f.Position := 0;

    f1:=TFileStream.Create(Edit2.Text,fmOpenWrite);
    try
      // двинем позицию на конец что бы добавить в конец файла =)))
      f1.Position := f1.Size;

      i:=f.Size;
      // грузим в файл

      f1.CopyFrom(f, i);

      // грузим размер
      f1.Write(i, SizeOf(int64));
    finally
      // изгоним Демонов ^__^
      f1.Free;
    end;
  finally
    f.Free;
  end;
end;