调用DLL中的窗体

(1)DLL源码
  library ProjectDll;

  uses
    Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,
    UnitDll in 'UnitDll.pas' {Form1};//DLL中的窗体

  procedure ProvaChild(ParentApplication: TApplication; ParentForm: TForm); export; stdcall;
  var
    Form1: TForm1; 
    DllProc: Pointer;             { Called whenever DLL entry point is called }
  begin
     Application:=ParentApplication;

     Form1:=TForm1.Create(ParentForm);
     Form1.MyParentForm:=ParentForm;
     Form1.MyParentApplication:=ParentApplication;
  //   windows.SetParent(Form1.Handle,ParentForm.Handle);
  //   Form1.FormStyle:=fsMDIChild;
     Form1.Show;
  end;

  procedure DLLUnloadProc(Reason: Integer); register;
  begin
    if Reason = DLL_PROCESS_DETACH then  Application:=DllApplication;
  end;

  exports
     ProvaChild;

  begin
     DllApplication:=Application;
     DLLProc := @DLLUnloadProc;
  end.
 
  =============================================
 
  unit UnitDll;

  interface
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

  type
    TForm1 = class(TForm)
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
      procedure FormDestroy(Sender: TObject);
    private

    public
      MyParentForm: TForm;
      MyParentApplication: TApplication;
    end;

  var
     DllApplication: TApplication;

  implementation

  {$R *.DFM}

  procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
     Action:=caFree;
  end;

  procedure TForm1.FormDestroy(Sender: TObject);
  begin
  //   Application:=DllApplication;
  end;

  end.
 
(2)应用程序源码
  T_ProvaChild = procedure (ParentApplication: TApplication; ParentForm: TForm); stdcall;

  var
    MainForm: TMainForm;

  implementation

  {$R *.DFM}

  procedure TMainForm.StartClick(Sender: TObject);
  var
     DllHandle: THandle;
     ProcAddr: FarProc;
     ProvaChild: T_ProvaChild;
  begin
     DllHandle := LoadLibrary('ProjectDll');
     ProcAddr := GetProcAddress(DllHandle, 'ProvaChild');
     if ProcAddr <> nil then
     begin
        ProvaChild := ProcAddr;
        ProvaChild(Application,Self);
     end;
  end;

  end.