DLL

[studen']

Объява ДЛЛ (не активХ) через Declare - это понятно. Но, есть же LoadLibrary. Можно как-то через нее подгружать библиотеку динамически, вернее манипулятор она возвращает, а как вызывать функции, через что?
Заранее всем спасибо!

[gaidar]

Можно через:

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

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Нужно передать указатель на функцию, все лишнее забей нулями. 0&.

Вот пример:

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

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
Private Sub Form_Load()
    On Error Resume Next
    Dim lb As Long, pa As Long
    lb = LoadLibrary("user32")
    pa = GetProcAddress(lb, "SetWindowTextA")
    CallWindowProc pa, Me.hWnd, "Hello !", ByVal 0&, ByVal 0&
    FreeLibrary lb
End Sub


Наслаждайся.

[GSerg]

РасшИрим, углУбим и обОзрим

[Amed]

GSerg как всегда на высоте, как и его примеры

[GSerg]

Столь лестного отзыва удостаивался лишь MEMBER (заслуженно), поэтому не могу не отметить, что это не мой пример

[studen']

Это-то понятно, но ведь SetWindowTextA имеет параметры: HWND, Str. А как мне передать свои параметры себе в библиотеку. Например есть такая функция:
ParseText (Source$,Delimeter$). Нужно не ХВНД передавать а текст.

[Vasya]

Ну не передавай хвнд, если не нужно.