這兩天在用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;