在DLL动态链接库中封装VCL的MDI子窗体

在DLL动态链接库中封装VCL的MDI子窗体

这里是工程文件的部分：

　　在DLL中封装MDI子窗体需要重写DLL入口函数，具体代码如下：

var
　 DllApp: TApplication;//定义保存原DLL的TApplication对象
　 DllScr: TScreen;//定义保存原DLL的TScreen对象

procedure UnProcDll(Reason: Integer); reGISter;
//重新定义DLL入口函数
begin
　 if Reason = DLL_PROCESS_DETACH then
　 begin
　　　 Application := DllApp;
　　　 Screen := DllScr;
　 end;
end;

//初始化区
begin
　 DllApp := Application;//备份原DLL的TApplication对象
　 DllScr := Screen;//备份原DLL的TScreen对象
　 DllProc := @UnProcDll;//将重写后的入口函数地址付给DLLProc
end.

　这里是需要导出的函数，写在工程文件或者一个单元的接口部分：

function ShowForm(App: TApplication; Scr: TScreen; Owner: TForm):TForm; export; stdcall;
begin
　 //下面的这两个变量是必须的
　 Application := App;//这个就是调用的时候对Application对象重新赋值
　 Screen := Scr;//对Screen对象赋值
　 //函数自定义代码
　 if not Assigned(Form1) then
　 begin
　　　 //Application.CreateForm(TForm1, Form1);
　　　 Form1 := TForm1.Create(Owner);
　　　 Result := Form1;
　 end
else
　　　 Result := Form1;
　 //函数自定义代码结束
end;

　　最后在工程文件把这个函数导出来就OK了。

//最后导出这个函数
exports
　　 ShowForm;