Delphi dll窗体封装

1.Create Form =>  FromTest.pas  {FromTest.dfm} 
 


var


  frmDLL: TfrmDLL;


  procedure SynAPP(App:THandle);stdcall;


  procedure ShowForm;stdcall;






implementation


uses Math,f2;


{$R *.dfm}



 procedure SynAPP(App:THandle );stdcall;


begin


  Application.Handle := App;


end;




procedure ShowForm;stdcall;


begin


  try


    frmDLL := TfrmDLL.Create (Application);


    finally


      FreeAndNil(frmDLL);


    end;


end;



2.Create Dll向导 => FormDll.dpr


library FormDLL;




uses


  SysUtils,


  Classes,


  Forms,


  FormTest  in 'FormTest  .pas' {frmDll},




{$R *.res}


exports


  SynAPP,ShowForm;




begin


end.

编译 FormDll.dpr 生成 FormDll.dll

3.在要调用的程序中


var


  Form1: TForm1;


  procedure SynAPP(App:THandle);stdcall;external 'FormDLL.dll'; 


  procedure ShowForm;stdcall;external 'FormDLL.dll';




implementation




{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);


begin


  SynAPP(Application.Handle);


  ShowForm ;


end;