Dll文件动态调用

最新推荐文章于 2023-08-28 20:19:54 发布

tjjiang

最新推荐文章于 2023-08-28 20:19:54 发布

阅读量174

点赞数

分类专栏： Delphi

本文链接：https://blog.csdn.net/tjjiang/article/details/48377959

版权

Delphi 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

procedure TMakeCode.ShowDllForm;
type
    TShowForm = Function(PH: HWnd; MemoW: TMemo):Integer;Stdcall;
var
    ShowDllForm: TShowForm;
    DllFileName: String;          //例如  C:\Dll\Dllname.dll
    Han: HWmd;
begin
    FreeLibrary(Han);
    Han:= LoadLibrary(PChar(DllFileName));
    @ShowDllForm:= GetProcAddress(Han, 'ShowDllForm');
    ShowDllForm(Panel.Handle, Memo);        //Pabel为Dll中窗口的父窗口  在Panel中显示
    FreeLibrary(Han);
end;