[sergey3695]

doctor_allcome,

Код:

procedure CancelButtonClickFinishedPage(Sender: TObject);
begin
// display the "Exit Setup ?" message box and if the user selects "Yes",
// then exit the process; it is currently the only way how to exit setup
// process manually
if ExitSetupMsgBox then
begin
  DelTree(ExpandConstant('{tmp}'),true,true,true);
  ExitProcess(0);
end;
end;

но правильнее так

Скрытый текст

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=.

[_code]
function NextButtonClick(CurPage: Integer): Boolean;
begin
  Result := False;
// display the "Exit Setup ?" message box and if the user selects "Yes",
// then exit the process; it is currently the only way how to exit setup
// process manually
if CurPage = wpFinished then
begin
if ExitSetupMsgBox then
  Result := True
end else
  Result := True;
end;

procedure CancelButtonClickFinishedPage(Sender: TObject);
begin
// if the fake Finish button was clicked...
  MsgBox('И вот тут Можно запустить программу!', mbInformation, MB_OK);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpFinished then
begin
  WizardForm.CancelButton.Caption := 'Run';
  WizardForm.CancelButton.Visible := True;
// bind your own OnClick event for the Cancel button; the original one
// is already disconnected at this stage
  WizardForm.CancelButton.OnClick := @CancelButtonClickFinishedPage;
end;
end;