为防止安装机运行,在先决条件测试失败时,仅填写返回代码, 载于>>>>。 即便在洗劫机显示之前,该装置也将撤离。

function InitializeSetup(): Boolean;
begin
  Result := True;

  if not PrerequisitesTest then
  begin                     
    SuppressibleMsgBox( Prerequisites test failed , mbError, MB_OK, IDOK);
    Result := False;
  end;
end;

如果在安装开始之前需要测试前提条件(即<代码>InitializeSet太早,请打电话 编码>

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
  begin
    if not PrerequisitesTest then
    begin                     
      SuppressibleMsgBox( Prerequisites test failed , mbError, MB_OK, IDOK);
      Abort;
    end;
  end;
end;

在这种情形下,考虑使用>Prepare ToInstall 事件功能机制,而不是撤销设置。

function PrepareToInstall(var NeedsRestart: Boolean): String;
begin
  Result :=   ;

  if not PrerequisitesTest then
  begin                     
    Result :=  Prerequisites test failed ;
  end;
end;

If you need to force terminate the installer any other time, use the ExitProcess WinAPI call:

procedure ExitProcess(uExitCode: Integer);
  external  ExitProcess@kernel32.dll stdcall ;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  if CurPageID = wpReady then
  begin
    if not PrerequisitesTest then
    begin                     
      SuppressibleMsgBox( Prerequisites test failed , mbError, MB_OK, IDOK);
      ExitProcess(1);
    end;
  end;
  Result := True;
end;

虽然这是相当不安全的撤离,但只是作为最后手段。 如果你装载了任何外部的DLL,你可能需要先卸载,以避免坠毁。 这也不清理临时名录。

如果你参加这些活动,可使用<>Abort():

InitializeSetup
InitializeWizard
CurStepChanged(ssInstall)
InitializeUninstall
CurUninstallStepChanged(usAppMutexCheck)
CurUninstallStepChanged(usUninstall)

我这样做的方式是:

procedure ExitProcess(exitCode:integer);
  external  ExitProcess@kernel32.dll stdcall ;

而使用这种方法的方式是:

[Code]
  if .... then begin
     ExitProcess(0);
  end;

这是我今天从Ino 5.6.1中 f出的文字,也是你在https://github.com/jrsoftware/issrc” rel=“noreferer”上找到的资料来源:https://github.com/jrsoftware/issrc^[ref1]。

A possibly useful catch-all solution to "Exit from [Code]"

TL;DR example:

[Code]
var _ImmediateInnoExit_was_invoked_flag: Boolean; // Inno/Pascal Script initializes all Boolean to False.

procedure ImmediateInnoExit();
  var MainFormRef: TForm;
begin
  _ImmediateInnoExit_was_invoked_flag := True;
  try
    MainFormRef := MainForm(); // calls GetMainForm() in Inno pascal code, which will raise an internal exception if the form is not yet initialized.
    Log( INFO: ImmediateInnoExit: Calling MainForm.Close()! );
    Log( NOTE: If the Event Fn CancelButtonClick is not coded to auto-Confirm, this will display the cancel dialog in the GUI case! );
    Log( NOTE: Code will stall inside the Close() function while the Cancel confirmation dialog is displayed. );
    MainFormRef.Close(); // this is only effective if the Wizard is visible, but we cann call it even when running siently (as long as the Wizard is initialized)
    Log( NOTE: MainForm.Close() invoked. (If confirmed, setup will exit.) );
  except
    Log( INFO: ImmediateInnoExit did not resolve MainForm -> assuming we were call in an InitializeSetup() context before the Main form has been created! );
  end;

  Log( INFO: ImmediateInnoExit: Calling Abort() -> EAbort! );
  Log( NOTE: Will exit the current scope. );
  Log( NOTE:   In GUI mode, it will just jump up to the Delphi event loop (and be ignored there). (But the WizardForm.Close() call should lead to exit!) );
  Log( NOTE:   In Silent Mode, it will be caught and exit the setup. );
  Abort(); // Raise EAbort
end;

// This is called when the user clicks the cancel button or the [x] Close button
// the close/cancel can be invoked from code via WizardForm.Close!
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin

  Log(Format( IN: CancelButtonClick(%d <- Cancel=[%d], Confirm=[%d]) , [CurPageID, Cancel, Confirm]));
  Confirm := not _ImmediateInnoExit_was_invoked_flag; // if Confirm==False we don t get the dialog prompt.
  Log(Format( IN: CancelButtonClick(%d -> [%d], [%d]) , [CurPageID, Cancel, Confirm]));
end;

如今,上述法典的内容是:

Anatomy of Inno Setup Exit/Cancel and Abort

Abort

The Inno docs for Abort state:

Description: Escapes from the current execution path without reporting an error.

Abort raises a special "silent exception" which operates like any other exception, but does not display an error message to the end user.

Remarks:
Abort does not cause Setup or Uninstall to exit unless it s called from one of these event functions (or another function invoked by them):

InitializeSetup InitializeWizard CurStepChanged(ssInstall) InitializeUninstall CurUninstallStepChanged(usAppMutexCheck) CurUninstallStepChanged(usUninstall)

Abort() behaviour explained

以这种方式来行使否决权的原因是,在内部,因诺提出“<>条码>的例外”,而这一例外是:rel=“noreferer” ,由Delphi UI loop专门处理,在所列出的职能中,Inno devs要么为bort/code>增添了特殊待遇。 CurStepChanged(ssInstall)<>[ref2], --