用LoadLibrary装载了DLL之后,如何调用?最好列举一个实例
解决方案 »
- 操作电子表格的问题~~
- VB程序如何实现更新正在使用的程序?比如一个用VB编译好的可执行程序,当有新的可执行程序下发时,如何替换旧的程序?
- treeview控件,在窗口不最大化的时候没有滑动条,该怎么设置?
- 数据类型转移,数据通讯协议
- 关于vb 操作注册表的 问题--拜托了
- 简单的问题:如何得到窗体最小化时的事件?40分也不少
- 1000元寻人 做个网游答题器
- VB.net和PowerBuilder哪个更好用?
- 高分求解如何读出文件内容并显示在richtextbox中,需要支持语法识别!
- ############没人知道######怎么做这种工具条!!!!!
- 关于dataCombo使用的一个问题。
- 在自己写的OCX中,如何把某些属性设置为只读,外部只能读,不能写?
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
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [email protected]
'We're going to call an API-function, without declaring it!
Dim lb As Long, pa As Long
'map 'user32' into the address space of the calling process.
lb = LoadLibrary("user32")
'retrieve the address of 'SetWindowTextA'
pa = GetProcAddress(lb, "SetWindowTextA")
'Call the SetWindowTextA-function
CallWindowProc pa, Me.hWnd, "Hello !", ByVal 0&, ByVal 0&
'unmap the library's address
FreeLibrary lb
End Sub