| Вопрос: Как запрятать dll-ку в exe-шник? | Добавлено: 02.05.07 23:27 |
Автор вопроса:  Shota
|
| Ответы | Всего ответов: 21 |
|
Номер ответа: 16 Автор ответа:  Shota Вопросов: 22 Ответов: 52 |
Профиль | | #16 | Добавлено: 04.05.07 09:18 |
|
Люди VB 6 Resource Editor-а у меня нет, я Resotrator-ом сделал ресурс фаил а в Basic-е даю Add->File и в Project Explorer-e создается раздел Related Documents в котором появляется фаил MyResource.res, после make MyProg.exe екзешник увеличевается на размер моего MyResource.res.....
То бишь, как я понимаю, у меня в екзешнике пополнение на 2 файла ( в MyResource.res я добавил 2 файла ) |
||
|
Номер ответа: 17 Автор ответа: ShotaВопросов: 22 Ответов: 52 |
Профиль | | #17 | Добавлено: 08.05.07 13:15 |
| Народ, всем спасибо, все получилось! | ||
|
Номер ответа: 18 Автор ответа:  someone Вопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #18 | Добавлено: 12.05.07 11:29 |
| Кстати, почему то звуковые файлы не добавляются... Вернее добавляются но при распаковке - хрен. Другой размер ваще. | ||
|
Номер ответа: 19 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #19 | Добавлено: 13.05.07 00:21 |
| Скорее всего неправильно извлекаешь | ||
|
Номер ответа: 20 Автор ответа: Silver Ferrum ICQ: 422640045 Вопросов: 12 Ответов: 144 |
Профиль | | #20 | Добавлено: 13.05.07 12:40 |
|
Private Sub Command1_Click()
Open "kbdru.dll" For Output As #1 Print #1, StrConv(LoadResData(101, "CUSTOM"  , vbUnicode)
Close #1 End Sub Таким способом извлекаются текстовые типы файлов.. А бинарные (звук, проги, библиотеки, картинки.. и т. д.) Таким: Dim arrB() As Byte
'загружаем данные из файла ресурсов в массив arrB = LoadResData(101, "CUSTOM"
'создаем новый файл Open "C:\temp\myData.exe" For Binary As #1 'записываем данные массива в созданный файл Put #1, , arrB Close #1 'закрываем файл |
||
|
Номер ответа: 21 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #21 | Добавлено: 13.05.07 18:24 |
А текстовые For Binary не извлекаются, да? 
|
||