Копирование множества файлов из одного экзэшника инсталлера

[KeePer]

Мир Вам.

Подскажите, люди, как упростить процесс копирование из ресурсного файла на винчестер пользователя.
Идея у меня такая: написать инсталлятор.
Интерфейс и остальные вещи уже готовы... Но вот проблема возникла:
файлов должно будет копироваться около 400 штук. А как такое большое кол-во скопировать из ресурсов я не знаю. Почему из ресурсного файла ? Гм... По-другому не пойму как. Этот пример я взял на этом же сайте, только там копируется один файл, а мне надо 400.

Код: Выделить всё

BinaryData = LoadResData(102, "FILES")
Open Direct & "\Primer.exe" For Binary Access Write As #1
Put #1, 1, BinaryData
Close #1


Так выглядит копирование одного файла. Подскажите как упростить процесс. Я пробовал засовывать их в sfx архив, все прекрасно получается, но тогда зачем сам инсталлятор, если файлы копирует другая программа.

[GSerg]

Имхо, процесс и так достаточно простой.

[KeePer]

Хех, простой ? Это получается нужно для каждого файла написать 4 строки. 400 * 4 = 1600 строк.
В одном модуле или процедуре...

[gaidar]

Зачем??? Можно в цикле обрабатывать.

Гораздо проще - все файлы слить в один, а его потом резать. Нужно будет всего лишь один двоичный ресурс обрабатывать.

[KeePer]

А не расскажите подробнее про то как все файлы слить и один и как разрезать его в дальнейшем... Кстати, на счет цикла:
есть ли команда или функция, которая выдавала бы реальное имя ресурсного файла, а не эти "101,102,103..."? Просто если делать цикл, то нужны реальные имена файлов, а так как я не знаю как осуществить данную операцию, подскажите плиз.

[WEB_13]

Я тоже пишу инсталлятор и даже и не думал о том, чтобы использовать файл ресурсов. Просто все необходимые файлы я слил в один через Open... , а потом прикрепил к установочному модулю вместе со скриптом!