mdwizard.pas

delphi实例大全非常经典

unit MdWizard;

interface

uses
  ExptIntf, Windows;

type
  TMdExpert = class (TIExpert)
  public
    function GetStyle: TExpertStyle; override;
    function GetName: string; override;
    function GetAuthor: string; override;
    function GetComment: string; override;
    function GetPage: string; override;
    function GetGlyph: HICON; override;
    function GetState: TExpertState; override;
    function GetIDString: string; override;
    function GetMenuText: string; override;
    procedure Execute; override;
  end;

procedure Register;

implementation

uses
  Dialogs, ToolIntf, SysUtils;

function TMdExpert.GetStyle: TExpertStyle;
begin
  // show up in the Help menu
  Result := esStandard;
end;

function TMdExpert.GetName: String;
begin
  // official name
  Result := 'MDWizard'
end;

function TMdExpert.GetAuthor: string;
begin
  Result := 'Marco Cant