学步园

{ 
This unit can be compiled into a package and will then appear in the delphi 
Help menu. 
} 
unit SDCSimpleExpert; 

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 
  {register expert} 
  RegisterPackageWizard(TSDCSimpleExpert.Create); 
end; 

{ TSDCSimpleExpert } 

procedure TSDCSimpleExpert.Execute; 
begin 
  {code to execute when menu item is clicked} 
  ShowMessage('Hello SwissDelphiCenter Simple Expert.'); 
end; 

function TSDCSimpleExpert.GetIDString: string; 
begin 
  {unique expert identifier} 
  Result := 'SwissDelphiCenter.SimpleExpert'; 
end; 

function TSDCSimpleExpert.GetMenuText: string; 
begin 
  {caption of menu item in help menu} 
  Result := 'SwissDelphiCenter Simple Expert'; 
end; 

function TSDCSimpleExpert.GetName: string; 
begin 
  {name of the expert} 
  Result := 'SwissDelphiCenter Simple Expert'; 
end; 

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

end.