Create a simple Delphi Expert(创建一个简单的Delphi专家)

{ 
Diese Unit kann in ein Package compiliert werden und erscheint danach im 
Delphi Menu unter Hilfe. 
} 

{ 
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 .