myexternalimpl.pas

来自「稿件名称：利用WebBrowser Control实现程序界面与实现的分离 」· PAS 代码 · 共 40 行

unit MyExternalImpl;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, ComObj, ActiveX, Project1_TLB, StdVcl;

type
  TMyExternal = class(TAutoObject, IMyExternal)
  protected
    procedure ShowAboutBox; safecall;
    procedure SwitchUI; safecall;

  end;

implementation

uses ComServ, MainFrm, SwitchUIFrm;

procedure TMyExternal.ShowAboutBox;
begin
  MessageBox(MainForm.Handle, PChar(
    'ZoCSoft GetExternal Demo' + #10#13 + #10#13 +
    'Copyright(C) 2003 ZoCSoft.com'),
    'ZoCWebBrowser', MB_OK or MB_ICONASTERISK);
end;

procedure TMyExternal.SwitchUI;
begin
  ShowSwitchUIForm;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TMyExternal, Class_MyExternal,
    ciInternal, tmApartment);
end.