| Вопрос: Восстановление библиотек | Добавлено: 04.01.06 10:53 |
Автор вопроса:  Tamplier | ICQ: 298742928 |
|
Значица так.
Во-первых. Всех с новым годом! Во-вторых. Открыл я ч/з ф3 библиотеку, взял весь текст оттуда, запихал в RichTextBox, запихал библиотеку в референсы, удалил ее, запустил программу, а там: восстанавливается библиотека и пробуется ее использование, но тут стоп! Ошибка. Не хочет он. Возможно это как-нить сделать? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  SerJ Вопросов: 24 Ответов: 332 |
Профиль | | #1 | Добавлено: 04.01.06 13:34 |
|
Так как вопрос без кода, ответ будет такой:
Private Declare Function LoadLibrary Lib "KERNEL32.dll" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Private Declare Function FreeLibrary Lib "KERNEL32.dll" (ByVal hLibModule As Long) As Long Private Declare Function GetProcAddress Lib "KERNEL32.dll" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long hLib = LoadLibrary("C:\MyRichTextBoxLib.dll" 
hProc = GetProcAddress(hLib, "LibFromRichEditProc"
if hproc Call CallWindowProc(hProc, vbNull, 0&, 0&, 0&
Call FreeLibrary(hLib) |
||
|
Номер ответа: 2 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #2 | Добавлено: 04.01.06 19:20 |
| Спасибо, как протестирую, если возникнут результаты - напишу | ||
Страница: 1 |