prjtoweb.pas

Delphi高级开发指南是开发程序的好帮手

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