програмно включить res файл в exe

[Volkogriz]

Доброе время суток!
Вопрос собственно такой:
есть архив res есть заготовка exe как всунуть программно res файл внутрь exe?
Не при помощи {$R архив.res} а программно smile
Заранее благодарен.
С уважением,
Volkogriz!

[Serge_Bliznykov]

есть такие программы, называются редакторы ресурсов (их множество, найдете легко), они умеют делать то, что Вам надо. Гуглите исходники, разбирайте...

[Volkogriz]

Мне не нужен редактор ресурсов!
Я спросил не про Resource Hacker и не про остальные программы
Мне нужно из своей программы добавлять ресурс в заготовку исполняемого файла!
Заранее благодарен.
С уважением,
Volkogriz!

[Кольша]

В какую заготовку...как?зачем почему? вы дали слишком мало данных..если вам надо добавить к ЧУЖОМУ exe файлу ресурс тоSerge_Bliznykov вам правильно сказал копайтесь в исходниках там это есть..ну а если в свой то гугля вам в помощь)

[eoln]

Ресурс нужен только этому приложению? Приложение собственное?
Просто допиши к концу exe через TFileStream.Write свои данные.
А сам exe должен будет извлечь эти данные через TFileStream.Read.
Главное знать откуда начинать читать (можно заранее жёстко прописать позицию с которой будут писаться и читаться данные)

[beegl]

1. Пишем в блокноте RC-файл, куда прописываем все нужные нам программы, например:

ARJ EXEFILE C:\ARHIVERS\ARJ.EXE

2. Компилируем его в ресурс при помощи Brcc32.exe. Получаем RES- файл.

3. Далее в тексте нашей программы:

implementation
{$R *.DFM}
{$R test.res} //Это наш RES-файл

// Процедура для извлечения ресурса в указанный файл
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  Res.Free;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 // Записывает в текущую папку arj.exe
 ExtractRes('EXEFILE', 'ARJ', 'ARJ.EXE');
end;

[Volkogriz]

Извлекать, создавать я умею программно!
До меня просто не может доходить
Опишу подробнее:
резервирую директорию в архив создаю Res файл:

procedure CreateResourceFile(
  DataFile, ResFile: string;  // имена файлов
  ResID: Integer              // id ресурсов
);
var
  FS, RS: TFileStream;
  FileHeader, ResHeader: TResHeader;
  Padding: array[0..SizeOf(DWORD)-1] of Byte;
begin
  { Open input file and create resource file }
  FS := TFileStream.Create(  // для чтения данных из файла
    DataFile, fmOpenRead);
  RS := TFileStream.Create(  // для записи файла ресурсов
    ResFile, fmCreate);
  { Создаём заголовок файла ресурсов - все нули, за исключением
    HeaderSize, ResType и ResID }
  FillChar(FileHeader, SizeOf(FileHeader), #0);
  FileHeader.HeaderSize := SizeOf(FileHeader);
  FileHeader.ResId := $0000FFFF;
  FileHeader.ResType := $0000FFFF;
  { Создаём заголовок данных для RC_DATA файла
    Внимание: для создания более одного ресурса необходимо
    повторить следующий процесс, используя каждый раз различные
    ID ресурсов }
  FillChar(ResHeader, SizeOf(ResHeader), #0);
  ResHeader.HeaderSize := SizeOf(ResHeader);
  // id ресурса - FFFF означает "не строка!"
  ResHeader.ResId := $0000FFFF or (ResId shl 16);
  // тип ресурса - RT_RCDATA (from Windows unit)
  ResHeader.ResType := $0000FFFF
    or (WORD(RT_RCDATA) shl 16);
  // размер данных - есть размер файла
  ResHeader.DataSize := FS.Size;
  // Устанавливаем необходимые флаги памяти
  ResHeader.MemoryFlags := $0030;
  { Записываем заголовки в файл ресурсов }
  RS.WriteBuffer(FileHeader, sizeof(FileHeader));
  RS.WriteBuffer(ResHeader, sizeof(ResHeader));
  { Копируем файл в ресурс }
  RS.CopyFrom(FS, FS.Size);
  { Pad data out to DWORD boundary - any old
    rubbish will do!}
  if FS.Size mod SizeOf(DWORD) <> 0 then
    RS.WriteBuffer(Padding, SizeOf(DWORD) -
      FS.Size mod SizeOf(DWORD));
  { закрываем файлы }
  FS.Free;
  RS.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateResourceFile('Mozilla.zip','Mozilla.res',08);
end;

Теперь у меня есть уже готовый Backup.exe файл, в нём все процедуры для распаковки архива.
мне нужно засунуть 'Mozilla.res' в этот exe файл, в принципе всё!
Заранее благодарен.
С уважением,
Volkogriz!

[Человек_Борща]

Почему для решения простых проблем люди находят самые идиотские и трудные решения?

Искать в гугле и примеры и описания: BeginUpdateResource,UpdateREsource, EndUpdateResource

[raxp]

http://programmersforum.ru/showthread.php?t=221370