外掛程式之介面實現

在外掛程式中需要對介面中的方法進行具體的實現，主控程式才能調用並執行外掛程式中的具體功能。

unit uPlug;

interface

uses
  uInterface, Forms, Windows, Classes, SysUtils;

type
  TModelService = class(TInterfacedObject, IModelInts)
  private
    function CheckFormExists(aClassName: pchar): Boolean;
  public
    procedure Cmd(aClassName: PChar);         // create visual plugin
    procedure Cmd2(aClassName: PChar);        // create non-visual plugin
  end;

implementation

{ TModelService }

function GetModelInts: IModelInts;
begin
  result := TModelService.Create();
end;

exports
  GetModelInts;

function TModelService.CheckFormExists(aClassName: pchar): Boolean;
var
  i: Integer;
begin
  result := False;
  for i := 0 to screen.FormCount - 1 do
  begin
    if UpperCase(screen.Forms[i].ClassName) = UpperCase(aClassName) then
    begin
      result := True;
      Screen.Forms[i].BringToFront;
      break;
    end;
  end;
end;

procedure TModelService.Cmd(aClassName: PChar);
var
  f: TForm;
begin
  if CheckFormExists(aClassName) then Exit;
  f := TFormClass(FindClass(aClassName)).Create(Application);
  f.Top := Application.MainForm.Height;
  f.Show;
end;

procedure TModelService.Cmd2(aClassName: PChar);
var
  f: TForm;
begin
 // if CheckFormExists(aClassName) then Exit;
  f := TFormClass(FindClass(aClassName)).Create(Application);
  f.Hide;
end;

end.