這個單元可以編譯到一個包中，之後它可以出現(xiàn)在Delphi的幫助菜單中。

注：在Interface的uses 語句中加入ToolsApi.

type
  TSDCSimpleExpert = class(TNotifierObject, IOTAMenuWizard, IOTAWizard)
  public
    function GetIDString: string;
    function GetName: string;
    function GetState: TWizardState;
    PRocedure Execute;
    function GetMenuText: string;
  end;

procedure Register;

implementation

uses Dialogs;

procedure Register;
begin
  RegisterPackageWizard(TSDCSimpleExpert.Create);{ 注冊"專家}
end;

{ TSDCSimpleExpert }"}

procedure TSDCSimpleExpert.Execute;
begin
  {當(dāng)單擊菜單項(xiàng)時，執(zhí)行這段代碼}
  ShowMessage('Hello SwissDelphiCenter Simple Expert.');
end;

function TSDCSimpleExpert.GetIDString: string;
begin
  {唯一"專家"標(biāo)識符}
  Result := 'SwissDelphiCenter.SimpleExpert';
end;

function TSDCSimpleExpert.GetMenuText: string;
begin
  {菜單項(xiàng)的標(biāo)題}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetName: string;
begin
  {“專家”的名字}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetState: TWizardState;
begin
  Result := [wsEnabled];
end;