[habib2302]

pakuwacenu,

Код:

[CustomMessages]
ExitSetupMessage=Завершить установку?

[Code]

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm:=false; Cancel:=false;
  WizardForm.ProgressGauge.State:=npbsPaused;
  case MsgBoxEx(WizardForm.Handle, CustomMessage('ExitSetupMessage'),
      SetupMessage(msgExitSetupTitle), MB_YESNO or MB_DEFBUTTON2 or MB_ICONINFORMATION, 0, 0) of
    IDYES: Cancel:=true;
    IDNO: begin WizardForm.BringToFront; WizardForm.ProgressGauge.State:=npbsNormal; end;
  end;
end;

И не забывайте про это http://forum.oszone.net/faq.php?faq=...age#faq_thanks