API调用后立即释放DLL

zhyzhsh

使用API时，我们通常在VBA代码前直接声明。但这样的话，被调用过的DLL文件会被占用直到退出Excel。
如果你需要对DLL进行重新编译和测试就会非常不便。要立即释放的话，我们需要换一种API调用方式。

方法：使用LoadLibrary、FreeLibrary，配合GetProcAddress、CallWindowProc。

1. 
   
2. Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
   
3. Public Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
   
4. Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
   
5. Public 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
   
6. 
   
7. Public Sub test()
   
8. '假设要调用llb.dll文件中的ooo函数。
   
9. Dim hModule As Long
   
10. hModule = LoadLibrary("llb.dll")'如果不在默认DLL搜索路径，请加上路径。
    
11. Dim lpPrevWndFunc As Long
    
12. lpPrevWndFunc = GetProcAddress(hModule, "ooo")'得到ooo函数的地址。
    
13. Dim LRESULT As Long
    
14. LRESULT = CallWindowProc(lpPrevWndFunc, 0, 0, wParam, lParam)'通过地址调用函数，将wParam, lParam改为你的参数。
    
15. Debug.Print "CallWindowProc " & LRESULT'观察调用结果。
    
16. LRESULT = FreeLibrary(hModule)'释放DLL文件。
    
17. Debug.Print "FreeLibrary " & LRESULT'观察调用结果。
    
18. End Sub

复制代码

API详情请参阅MSDN。上述DLL不是ActiveX DLL。

liucqa

学习，能不能举个调用DLL占用内存的例子，做个对比

zhyzhsh

liucqa 发表于 2012-2-28 11:48
学习，能不能举个调用DLL占用内存的例子，做个对比

不是说DLL占用大量内存，而是调用过后，无法立即释放文件，导致无法重新编译DLL（文件被占用）。
你可以在调用DLL后，退出Excel前，试着删除这个DLL文件。

excelhomeljch

学习学习^^^^^^^^^^^^

JLF2003

好好学习一下！

liucqa

哦，明白了

goldowl2011

Thanks a lot.

Moneky

谢谢分享，收藏备用。

zhyzhsh

CallWindowProc传递参数示例。把llb.dll文件放到c盘根目录，运行test过程。
CallWindowProc.zip (10.01 KB, 下载次数: 102)

2012-9-4 15:45 上传

点击文件名下载附件

WZ581701

你好，版主！首先非常感谢你的帮助。我还有几个问题想请教一下。
1.对于附件中的模块1的方法为什么不能执行DLL？
2.表格1中有一个函数，里面有个HWND hOwenWnd参数，在VB里如何用，我看了他的VC示例里面，这个值是这样填的nErr = lmc1_Initial(strEzCadPath,bTestMode,GetSafeHwnd() );
  再次表示感谢！