5,388
社区成员
发帖
与我相关
我的任务
分享
//此函数定义在Dll中,由主程序调用
//返回创建的窗口句柄供主程序处理
function LoadPlugin(dllParent: THandle): THandle;
begin
Application.Handle := dllParent;
if Form1 =nil then
Form1 := TForm1.Create(Application);
Form1.ParentWindow := dllParent;
Form1.Show;
Result := Form1.Handle;
end;