调用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.

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值