Code:

{

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.