[Serega]

Не знаете в чем проблема? »

Вы совмещайте с одноимёнными процедурами, т.е. CurPageChanged из моего примера с CurPageChanged из вашего скрипта и CurStepChanged соответственно...

читать дальше »

Код:

/////////////////////////////////////////////////////////////////////////////
procedure CheckBoxChecked;
var
  res: Integer;
begin
  if RunProg.Checked then
  // запускаем gfwlivesetup.exe
  Exec(ExpandConstant('{src}\Redistributables\gfwlivesetup.exe'), '',
       ExpandConstant('{src}\Redistributables'), SW_HIDE, ewWaitUntilTerminated, res);
end;

procedure GreatCheckBox;
begin
  RunProg:= TCheckBox.Create(WizardForm);
  with RunProg do
    begin
      Parent := WizardForm;
      Caption := 'Установить программу?';
      SetBounds(140,330,150,15);
      Cursor:= crHand;
      Checked:= True;
    end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  ResultCode: Integer;
begin
  if CurStep = ssInstall then
  StartInstall:= GetTickCount; {a?aiy ia?aea ?aniaeiaee}
  if CurStep = ssPostInstall then
  begin
    UnPackError:= UnPack(Archives)
    if UnPackError = 0 then
      begin
        SetTaskBarTitle(SetupMessage(msgSetupAppTitle));
      end
    else
    begin
      // Error occured, uninstall it then
      Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewWaitUntilTerminated, n); //ioeao onoaiiaee ec-ca ioeaee unarc.dll
      SetTaskBarTitle(SetupMessage(msgErrorTitle))
      WizardForm.Caption:= SetupMessage(msgErrorTitle) +' — '+ cm('ArcBreak')
    end;
  end;
  if CurStep = ssDone then CheckBoxChecked;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  PageNameLabel.Caption := WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel.Caption := WizardForm.PageDescriptionLabel.Caption;

  if CurPageID = wpSelectDir then
  begin
    WizardForm.BackButton.Enabled := False;
    WizardForm.NextButton.Caption:='Onoaiiaeou';
    GetNeedSpaceCaption;
    if FreeMB < NeedSize then
    WizardForm.NextButton.Enabled:=False
  end;

  if (CurPageID = wpFinished) and (UnPackError <> 0) then
  begin // ?aniaeiauee aa?ioe ioeaeo
    WizardForm.FinishedLabel.Font.Color:= $0000C0; //e?aniue
    WizardForm.FinishedLabel.Height:= WizardForm.FinishedLabel.Height * 2;
    WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted) + #13#10#13#10 + msgError;
  end;

  if CurPageID = wpFinished then GreatCheckBox;
end;
//////////////////////////////////////////////////////////////