小编Mah*_*med的帖子

我正在尝试使用Inno Setup制作安装程序.

我想首先显示欢迎页面,然后是SelectDir.

这是CurPageChanged示例代码:

procedure CurPageChanged(CurPageID: integer);
begin
  if CurPageID = wpWelcome then
  begin
    HideComponents;
    WLabel.show;
    WizardForm.NextButton.Show;
    WizardForm.NextButton.Caption := 'Configure';
  end;

  if CurPageID = wpSelectDir then
  begin
    HideComponents;

    BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\2.bmp'));
    WizardForm.DirEdit.Show;
    WizardForm.NextButton.Show;
    WizardForm.NextButton.Caption := 'Install';
    WizardForm.DirBrowseButton.Show;
    TasksSeparateBevel.Show;
    TasksSeparateBevel2.Show;
    InstallpathLabel.Show;
    DiskSpaceLablel.Show;
    ShortcutLabel.Show;
    ShortcutCB.Show;
    CreateDLabel.Show;
  end;

  if CurPageID = wpInstalling then
  begin
    HideComponents;

    MakeSlideShow;
    TimerID := SetTimer(0, 0, 10000, WrapTimerProc(@OnTimer, 4));

    WizardForm.CancelButton.show;
    WizardForm.ProgressGauge.show;
  end;
end;

但SelectDir首先显示然后安装.欢迎页面不显示!