[PhoeniX]

Не знал куда засунуть тему... Короче, ввожу в суть дела:
Пишу создатель инсталляторов. (Почему свой - не обсуждается, просто зуд в одном месте...)
Как зашить файл в ресурсы, и как его оттуда выдрать - знаю. Как скопировать зашитый файл в папку - знаю. Короче, у меня инсталлятор готов 100%. Только одно НО: для каждой проги надо делать файл ресурсов и подключать его ещё на уровне сорцов. А есть ли что-то, что может зашить файл в ран-тайм? Из другой проги, разумеется.
Тоесть прога должна делать следующее:
1. По списку файлов генерировать файл конфига для инсталлятора - готово.
2. Сохранять все необходимые файлы в папке, в готовом к упаковке виде - сделано.
3. Паковать эти файлы в один - сделано, юзаю ConsoleRAR через ShellExecute.
4. Зашивать этот файл, полученный в п.3, в готовый екзешник в виде ресурса - а вот тут ОПА - незнаю как.

Инсталлятор в себя уже вобрал UnRAR, и работает на ура. Готовые инсталлеры получаются небольшие, так что инсталлятор неплохой. Если подскажете недостающее звено - буду очень признателен. И обязательно упомяну в разделе "Об авторах".

ЗЫ: Нандексил кучу ненужной фигни, полезнай информации 0.

[Ferra]

Ну как поступает большинство архиваторов. Когда создается самораспаковывающийся архив, то есть программа-распаковщик, ей в конкретную секцию пишется архив. Когда она запускается, она смотрит в секцию и выполняет нужные действия. Что такое секция в исполняемом файле - посмотри сам. Либо что такое 'pe' структура ехе.

как делал я сам, когда был приблизительно на твоем уровне. В распаковщике хранил в качестве глобальной переменной свой размер(тот который после компиляции. Для этого нужно собрать проект - посмотреть размер в байтах и закинуть в переменную). Далее тупо в конец распаковщика записывал архив(так делать можно. Работать будет. Но жутко как неправильно и нехорошо). При запуске проверял, если размер больше чем в переменной, то значит мы содержим архив, читаем данные в поток начиная с позиции 'размер в переменой' до конца. Это и есть наш архив, далее делаешь всё что душе угодно.

думаю я ответил на вопрос как это сделать. Но всё же ещё и про ресурсы. Ты видимо плохо дельфиворлд смотрел - там есть пример как писать в ресурсы (проверь, я вроде не ошибаюсь). Так что флаг в руки и на шею барабан, дерзай

[PhoeniX]

ммм... возможно, сейчас посмотрю, мб будет работать...
это?

Код:

function AttachToFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean;
var 
  aStream: TFileStream; 
  iSize: Integer; 
begin 
  Result := False; 
  if not FileExists(AFileName) then 
    Exit; 
  try 
    aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite); 
    MemoryStream.Seek(0, soFromBeginning); 
    aStream.Seek(0, soFromEnd); 
    aStream.CopyFrom(MemoryStream, 0); 
    iSize := MemoryStream.Size + SizeOf(Integer); 
    aStream.Write(iSize, SizeOf(iSize)); 
  finally 
    aStream.Free; 
  end; 
  Result := True; 
end; 

function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean; 
var 
  aStream: TFileStream; 
  iSize: Integer; 
begin
  Result := False; 
  if not FileExists(AFileName) then 
    Exit; 
  try 
    aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite); 
    aStream.Seek(-SizeOf(Integer), soFromEnd); 
    aStream.Read(iSize, SizeOf(iSize)); 
    if iSize > aStream.Size then 
    begin 
      aStream.Free; 
      Exit; 
    end; 
    aStream.Seek(-iSize, soFromEnd); 
    MemoryStream.SetSize(iSize - SizeOf(Integer)); 
    MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize)); 
    MemoryStream.Seek(0, soFromBeginning); 
  finally 
    aStream.Free; 
  end; 
  Result := True; 
end;