ASP中最好的CMS系统的比较和汇总

  在Delphi中编写一个Menu Wizard也是相当的简单，在实现IOTAWizard接口的同时，也实现IOTAMenuWizard接口即可。

unit MenuWizardDemoUnit;

interface

uses SysUtils, ToolsAPI, Dialogs;

type
  TMenuWizardDemo  =   class (TNotifierObject, IOTAWizard, IOTAMenuWizard)
   public
     ... { IOTAWizard }
    function GetIDString:  string ;
    function GetName:  string ;
    function GetState: TWizardState;
    procedure Execute;

     ... { IOTAMenuWizard }
    function GetMenuText:  string ;
  end;

procedure Register;

implementation

uses WizardForm, Forms;

resourcestring
  FName      =   ' MenuWizardDemo ' ;
  FAuthor    =   ' Chris Mao ' ;
  FPageName  =   ' Wizards ' ;
  FComment   =   ' This is comment. ' ;

// Wizard entry point
procedure Register;
begin
  ToolsAPI.RegisterPackageWizard(TMenuWizardDemo.Create  as  IOTAWizard);
end;

... { TMenuWizardDemo }

// ================== IOTAWizard ===================================

procedure TMenuWizardDemo.Execute;
begin
  ShowMessage( ' This is Menu Wizard Demo. ' );
end;

function TMenuWizardDemo.GetIDString:  string ;
begin
  Result : =  Format( ' %s.%s ' , [FAuthor, FName]);
end;

function TMenuWizardDemo.GetName:  string ;
begin
  Result : =  FName;
end;

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

// ================== IOTAMenuWizard ===================================

function TMenuWizardDemo.GetMenuText:  string ;
begin
  Result : =   ' Menu Wizard Demo ' ;
end;

end.

    编译包并安装，会在Delphi IDE的Help菜单中看到我们新增加的一个菜单项，其标题就是我们在GetMenuText方法中返回的字串，当我们点击这个菜单项时，会执行Execute方法中的代码。

    就是这么简单！