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

不多说了，看代码就应该明白了，曾经我遇到的问题，现在放出来大家共享！

这里是工程文件的部分：

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

 

 1var
 2  DllApp: TApplication;//定义保存原DLL的TApplication对象
 3  DllScr: TScreen;//定义保存原DLL的TScreen对象
 4
 5procedure UnProcDll(Reason: Integer); register;
 6//重新定义DLL入口函数
 7begin
 8  if Reason = DLL_PROCESS_DETACH then
 9  begin
    Application := DllApp;
    Screen := DllScr;
  end;
end;

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

 

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

 

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

 

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

 

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