Файл ресурса (как извлечь файлы)

[nic0prime]

Есть файл ресурса, в нем присутствуют картинки, звуки, текстовые файлы.Как вы поняли это файл ресурса к инсталятору)) как все это чудо извлечь из него?

[nic0prime]

Пример функции для сохранения произвольных данных из файла-ресурса на диск:

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

Dim B() as Byte
      'index = идентификационный номер строки, в файле-ресурсе
      B = LoadResData(index, "CUSTOM")
      Dim FF as Integer
      FF = FreeFile
      Open "полный путь к файлу" For Binary As #FF
         Put #FF, ,B()
      Close #FF

Так-то вот))

[1Steps]

Ух ты, серьёзный код. Надо взять на заметку.

[Debugger]

Похоже, сегодня самому отвечать а собственные вопросы модно

[Proxy]

А я этот пост видел ещё дня 2 назад, подумал, что сейчас повится Хакер, потребует адекватно сформулировать вопрос, а потом я отвечу
Однако ж не угадал на этот раз

[Хакер]

хакер is unpredictable.