| Вопрос: 2 в 1 | Добавлено: 10.07.05 15:36 |
Автор вопроса:  gvozd | Web-сайт: www.gvozdsoft.com
|
| Как прогу засунуть в прогу, чтобы при запуске, вторая куда-то распаковалась? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 10.07.05 15:44 |
| В ресурсы? | ||
|
Номер ответа: 2 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #2 | Добавлено: 10.07.05 15:47 |
| А как ее оттуда выковыривать? | ||
|
Номер ответа: 3 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #3 | Добавлено: 10.07.05 15:51 |
| LoadResData? | ||
|
Номер ответа: 4 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #4 | Добавлено: 10.07.05 17:35 |
| А как именно на винт сохранять? | ||
|
Номер ответа: 5 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #5 | Добавлено: 10.07.05 17:43 |
|
Public Function GetBinaryFileFromResource( File_Path As String, ByVal ID As Long, Resource As String) As Boolean
Dim BinaryData() As Byte 'объявляем переменную BinaryData = LoadResData(ID, Resource) 'загрузка из ресурсов If Len(BinaryData(1)) > 0 Then 'Если что - то есть, то все гуд Open File_Path For Binary Access Write As #1 Put #1, 1, BinaryData 'запись в файл Close #1 GetBinaryFileFromResource = True 'операция успешна Exit Function End If GetBinaryFileFromResource = False 'ничего не получилось End Function |
||
|
Номер ответа: 6 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #6 | Добавлено: 10.07.05 18:51 |
| Barsik, спасибо. | ||
Страница: 1 |