testplugin.dpr

Delphi插件程序示例

library TestPlugIn;

uses
  SysUtils,
  Forms,
  windows,
  Classes,
  frmTest in 'frmTest.pas' {TestForm};

{$R *.res}

procedure PlugInName(var PlugInName: Pchar);stdcall;
begin
  PlugInName := '显示窗体';
end;

procedure PlugInDescribe(var PlugInDescribe: Pchar);stdcall;
begin
  PlugInDescribe := '显示一个窗体';
end;

procedure PlugInNode(var PlugInNode: Pchar);stdcall;
begin
  PlugInNode := '其它';
end;

procedure RunPlugIn();stdcall;
begin
  with TTestForm.Create(nil) do
  try
    ShowModal;
  finally
    Close;
    Free;
  end;
end;

  exports PlugInName,
          PlugInDescribe,
          PlugInNode,
          RunPlugIn;
end.