动态调用DLL

最新推荐文章于 2024-06-10 22:22:43 发布

itsoft2006

最新推荐文章于 2024-06-10 22:22:43 发布

阅读量796

点赞数

分类专栏： Delphi开发经验文章标签： dll

本文链接：https://blog.csdn.net/itsoft2006/article/details/1541122

版权

Delphi开发经验专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Var
　　LibHandle:HWND;
　　DllName:Procedure(DllHandle:HWND);Stdcall;
　　
　　
　　LibHandle:=LoadLibrary('MyDll.dll');
　　if LibHandle<32 then
　　begin
　　MessageBox(Form1.Handle,'Not Found MyDll.dll','Error',0);
　　Exit;
　　end;
　　@DllName:=GetProcAddress(LibHandle,'View');
　　if @DllName=NIL then
　　begin
　　MessageBox(Form1.Handle,'Not Found View in MyDll.dll','Error',0);
　　FreeLibrary(LibHandle);
　　Exit;
　　end;
　　try
　　View(Application.Handle);
　　finally
　　FreeLibrary(LibHandle);
　　end;
　　
　　
　　/**************************
　　动态调用DLL
　　implementation
　　
　　Procedure View(Ehandle:HWnd);Stdcall;External 'MyDll.dll';