statplugin.dpr

来自「Delphi插件程序示例」· DPR 代码 · 共 39 行

library StatPlugIn;

uses
  SysUtils,
  Forms,
  windows,
  Classes,
  StatFrm in 'StatFrm.pas' {StatForm},
  FilterFrm in 'FilterFrm.pas' {FilterForm};

{$R *.res}

procedure PlugInName(var PlugInName: Pchar);stdcall;
begin
  PlugInName := '诊断设备工作量统计';
end;

function ShowForm(MainForm:TForm):TForm;stdcall;
var
  ptr:PLongInt;
begin
  ptr:=@(Application.MainForm);//先把dll的MainForm句柄保存起来，也无须释放，只不过是替换一下
  ptr^:=LongInt(MainForm);//用主调程序的mainForm替换DLL的MainForm。MainForm是特殊的WINDOW，它专门管理Application中的Forms资源.
  //为什么不直接Application.MainForm := mainForm,因为Application.MainForm是只读属性
  StatForm:=TStatForm.Create(MainForm);//用参数建立
  Result := StatForm;
end;

procedure CloseForm();stdcall;
begin
  StatForm.Close;
  StatForm.Free;
end;

  exports PlugInName,
          ShowForm,
          CloseForm;
end.