这两天在用Inno setup做安装包,遇到一个问题,就是不知道如何退出安装向导,实测WizardForm.Close没什么用。在网上查找了很久的资料终于找到解决方法。
以下是我的代码:
[code]
var
CurPageIDGlobal: Integer; //定义一个全局变量记录完成状态
function ExitProcess(exitCode: integer): Integer; external '[email protected] 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;