delphi 在DLL中添加窗体.

方案一:

　　在DLL工程中新建一个FORM窗体.在窗体中加入如下代码:

　　1.首先需要再 implementation 之前声明下以下函数.

 procedure SynApp(App:THandle);stdcall;

　　 begin

　　　　Application.Handle := App ;　　 

　　 end;


　　Procedure ShowForm;stdcall ;

　　begin

　　　　MainForm := TMainForm.Create(Application);

　　　　MainForm.show ;

　　end;

　　2.在DLL文件中导出表写入:

　　

exports 

　　SynApp,

　　ShowForm;

　　3.让窗口显示需要传入进程句柄.

SynApp(Application.Handle);

　　ShowForm;

　　完成.

方案二.此方案来自郁金香老师.

　　1.新建DLL.在DLL文件中添加一个FORM.

　　先在DLL文件中添加如下关键代码:

　　

if Form1 = nil then begin Form1.:= TForm1.Create(nil);

　　Form1.Visable: = not From1.Visable ;

　　end;

      //但是这样子会有问题..如果卸载这个DLL的时候,相应的程序也会跟着退出.

　　//所以必须写一个加载卸载处理函数

　　procedure DllEnterProc(reason:integer);

　　begin

　　　　case reason of

　　　　windows.DLL_PROCESS_ATTACH: begin end;

　　　　windows.DLL_PROCESS_DETACH:begin Form1.Free;Form1.nil; end;

　　end;

　　

　　在最后一个end.  之前添加如下关键代码:

　　

dllProc:=@DllEnterProc ;

　　完成..这样既可创建含有窗体的DLL文件.