prjtoweb.pas

来自「Delphi高级开发指南是开发程序的好帮手」· PAS 代码 · 共 44 行

unit PrjToWeb;

interface

uses
  ExptIntf, Windows;

type
  TPrjToWebWizard = 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, Convert, ShellApi;

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

function TPrjToWebWizard.GetName: String;
begin
  // official name
  Result := 'PrjToWeb Wizard'
end;

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