Inno Setup创建自定义wizard

inno Setup打包在安装过程中添加自定义wizard或者操作步骤可以从3个维度去定位执行

1）step change

对应：procedure CurStepChanged(CurStep: TSetupStep);

2）page change

对应：procedure CurPageChanged(CurPageID: Integer);

3）button点击

对应：function NextButtonClick(CurPageID: Integer): Boolean;

 

定义wizard是在procedure InitializeWizard();中设计和定义，具体出现的位置可以通过上面三个维度去定位让它出现的位置

下面是定义了2个wizard，一个是进度条，一个是带有输入框和label的wizard界面：

其中带有输入框和label界面效果如下：

procedure InitializeWizard;
var
  ed1,ed2:TEdit;
  Label1,Label2,Label3: TNewStaticText;
  AfterID: Integer;

begin
  OutputProgressWizardPage := CreateOutputProgressPage('Installing',