|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Создатель инсталляторов
Не знал куда засунуть тему... Короче, ввожу в суть дела:
Пишу создатель инсталляторов. (Почему свой - не обсуждается, просто зуд в одном месте...) Как зашить файл в ресурсы, и как его оттуда выдрать - знаю. Как скопировать зашитый файл в папку - знаю. Короче, у меня инсталлятор готов 100%. Только одно НО: для каждой проги надо делать файл ресурсов и подключать его ещё на уровне сорцов. А есть ли что-то, что может зашить файл в ран-тайм? Из другой проги, разумеется. Тоесть прога должна делать следующее: 1. По списку файлов генерировать файл конфига для инсталлятора - готово. 2. Сохранять все необходимые файлы в папке, в готовом к упаковке виде - сделано. 3. Паковать эти файлы в один - сделано, юзаю ConsoleRAR через ShellExecute. 4. Зашивать этот файл, полученный в п.3, в готовый екзешник в виде ресурса - а вот тут ОПА - незнаю как. Инсталлятор в себя уже вобрал UnRAR, и работает на ура. Готовые инсталлеры получаются небольшие, так что инсталлятор неплохой. Если подскажете недостающее звено - буду очень признателен. И обязательно упомяну в разделе "Об авторах". ЗЫ: Нандексил кучу ненужной фигни, полезнай информации 0. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 20.05.2009 в 18:13. |
#2
|
||||
|
||||
Ну как поступает большинство архиваторов. Когда создается самораспаковывающийся архив, то есть программа-распаковщик, ей в конкретную секцию пишется архив. Когда она запускается, она смотрит в секцию и выполняет нужные действия. Что такое секция в исполняемом файле - посмотри сам. Либо что такое 'pe' структура ехе.
как делал я сам, когда был приблизительно на твоем уровне. В распаковщике хранил в качестве глобальной переменной свой размер(тот который после компиляции. Для этого нужно собрать проект - посмотреть размер в байтах и закинуть в переменную). Далее тупо в конец распаковщика записывал архив(так делать можно. Работать будет. Но жутко как неправильно и нехорошо). При запуске проверял, если размер больше чем в переменной, то значит мы содержим архив, читаем данные в поток начиная с позиции 'размер в переменой' до конца. Это и есть наш архив, далее делаешь всё что душе угодно. думаю я ответил на вопрос как это сделать. Но всё же ещё и про ресурсы. Ты видимо плохо дельфиворлд смотрел - там есть пример как писать в ресурсы (проверь, я вроде не ошибаюсь). Так что флаг в руки и на шею барабан, дерзай Нет повести печальнее на свете, чем повесть о заклиневшем Resete. |
#3
|
||||
|
||||
ммм... возможно, сейчас посмотрю, мб будет работать...
это? Код:
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; Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 21.05.2009 в 15:49. |