創建一個簡單的"專家"

　　這個單元可以編譯到一個包中，之後它可以出現在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
　　  {當單擊菜單項時，執行這段代碼}
　　  ShowMessage('Hello SwissDelphiCenter Simple Expert.');
　　end;
　　
　　function TSDCSimpleExpert.GetIDString: string;
　　begin
　　  {唯一"專家"標識符}
　　  Result := 'SwissDelphiCenter.SimpleExpert';
　　end;
　　
　　function TSDCSimpleExpert.GetMenuText: string;
　　begin
　　  {菜單項的標題}
　　  Result := 'SwissDelphiCenter Simple Expert';
　　end;
　　
　　function TSDCSimpleExpert.GetName: string;
　　begin
　　  {“專家”的名字}
　　  Result := 'SwissDelphiCenter Simple Expert';
　　end;
　　
　　function TSDCSimpleExpert.GetState: TWizardState;
　　begin
　　  Result := [wsEnabled];
　　end;