Inno Setup技巧[实例]添加自定义页面

原文 http://hi.baidu.com/watashi/item/b3dda993459ff8f0291647a0

通过“添加自定义页面”可以丰富安装程序的功能。本文以添加一个页面“选择安装类型”为例，选择标准安装将跳过“选择目标位置”和“选择开始菜单文件夹”两个页面。

在[Code]段添加以下代码：

var

Page: TWizardPage;



RadioButton1, RadioButton2: TRadioButton;

Lbl1, Lbl2: TNewStaticText;





procedure CreateAddonPage;

begin

Page := CreateCustomPage(wpInfoBefore, '选择安装类型', '请根据您的需要选择安装的类型');



RadioButton1 := TRadioButton.Create(Page);

RadioButton1.Left := ScaleX(80);

RadioButton1.Top := ScaleY(40);

RadioButton1.Width := Page.SurfaceWidth;

RadioButton1.Height := ScaleY(17);

RadioButton1.Caption := '标准安装';

RadioButton1.Checked := True;

RadioButton1.Parent := Page.Surface;



Lbl1 := TNewStaticText.Create(Page);

Lbl1.Left := ScaleX(95);

Lbl1.Top := ScaleY(60);

Lbl1.Width := ScaleX(250);

Lbl1.Height := ScaleY(50);

Lbl1.Caption := '按照标准模式安装软件到您的电脑';

Lbl1.Parent := Page.Surface;



RadioButton2 := TRadioButton.Create(Page);

RadioButton2.Left := ScaleX(80);

RadioButton2.Top := RadioButton1.Top + ScaleY(60);

RadioButton2.Width := Page.SurfaceWidth;

RadioButton2.Height := ScaleY(17);

RadioButton2.Caption := '自定义安装';

RadioButton2.Checked := false;

RadioButton2.Parent := Page.Surface;



 



Lbl2 := TNewStaticText.Create(Page);

Lbl2.Left := ScaleX(95);

Lbl2.Top := Lbl1.Top + ScaleY(60);

Lbl2.Width := ScaleX(250);

Lbl2.Height := ScaleY(50);

Lbl2.Caption := '您可以选择单个安装项，建议经验丰富的用户使用';

Lbl2.Parent := Page.Surface;

end;



procedure InitializeWizard();

begin

CreateAddonPage;



end;



function ShouldSkipPage(PageID: Integer): Boolean;

begin

if (PageID = wpSelectDir) and (RadioButton1.Checked) then

Result := True

else if (PageID = wpSelectProgramGroup) and (RadioButton1.Checked) then

Result := True

end;

 

代码中红色部分表示自定义页面所紧跟的向导页面的CurPageID值，蓝色部分分别表示自定义页面的标题和描述。

 

默认截图：

自定义截图：