if (CurPageID = wpSelectDir) then

begin

MsgBox('AAAA', mbInformation, MB_OK);

end

else

begin

MsgBox('BBBB', mbInformation, MB_OK);

end;

end;

16、安装结束界面增加“设为首页”选项

[Tasks]

Name: changestartpage; Description: "设置vistaqq为默认主页"

[Registry]

Root: HKCU; Subkey: "Software\Microsoft\Internet Explorer\Main"; ValueType: string; ValueName: "Start Page"; ValueData: ""; tasks: changestartpage

17、添加“关于”和网站链接按钮

[Code]

procedure URLLabelOnClick(Sender: TObject);

var

ErrorCode: Integer;

begin

ShellExec('open', '', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); end;

procedure AboutButtonOnClick(Sender: TObject);

begin

MsgBox(#13 'Vista 状态条风格盘符' #13 #13'本软件由jinn制作，希望各位登陆中天VIP工作室！' #13#13 '版权所有 (C) 中天VIP工作室', mbInformation, MB_OK);

end;

var

AboutButton, CancelButton: TButton;

URLLabel: TNewStaticText;

procedure InitializeWizard();

begin

{ Create the pages }

WizardForm.PAGENAMELABEL.Font.Color:= clred;