I am trying to make an installer using Inno Setup.
And first I want to show the welcome page, then SelectDir.
This is a CurPageChanged code example:
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;
But first select SelectDir, then Install. Welcome page does not appear!
source share