Inno setup如何关闭安装向导(win10兼容问题解决方案)

    这两天在用Inno setup做安装包，遇到一个问题，就是不知道如何退出安装向导，实测WizardForm.Close没什么用。在网上查找了很久的资料终于找到解决方法。

      以下是我的代码：

      

[code]

var
  CurPageIDGlobal: Integer;  //定义一个全局变量记录完成状态

function  ExitProcess(exitCode: integer): Integer; external 'ExitProcess@kernel32.dll stdcall';

// 在完成页面设置CurPageIDGlobal:= wpFinished

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpFinished then
  begin
   CurPageIDGlobal := wpFinished;
  end
end;

// 终止安装时或完成安装后调用
procedure DeinitializeSetup();
begin
  gdipShutdown;
  
  // 解决win10兼容问题，安装完成后直接设置退出代码为0
  if CurPageIDGlobal = wpFinished then
  begin
    ExitProcess(0);
  end
end;