PaperCutSoftware/GhostTrap
1
0
Fork 0
mirror of https://github.com/PaperCutSoftware/GhostTrap.git synced 2025-12-10 13:21:41 -06:00
Code Issues Packages Projects Releases Wiki Activity

changing some variable and function names, also combining conditions for set up wizard behaviour when installation process is not terminated normally due to the absence of deps

Browse Source
This commit is contained in:
Leo Menzies-Ye 2024-02-05 12:51:12 +11:00
parent 799a66e64d
commit 1b7b87a643
1 changed files with 15 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
installer/win/ghost-trap.iss
View File

@ -96,7 +96,7 @@ const
; Used to store value of whether we have acceptable Visual C++ Runtime components
var
HasAcceptableVCRuntime : Boolean;
HasRequiredVCRuntimeVersion : Boolean;
VCRuntimeMissingOptionsPage : TInputOptionWizardPage;
IsInstallationFinishedNormally : Boolean;
@ -133,7 +133,7 @@ begin
end;
end;
function IsAcceptableVCRuntimeInstalled() : Boolean;
function IsRequiredVCRuntimeVersionInstalled() : Boolean;
var
cMajor: Cardinal;
cMinor: Cardinal;
@ -177,9 +177,9 @@ end;
procedure InitializeWizard();
begin
HasAcceptableVCRuntime := IsAcceptableVCRuntimeInstalled();
HasRequiredVCRuntimeVersion := IsRequiredVCRuntimeVersionInstalled();
; If the OS is missing required dependencies, the installation process will not go the full length and will be aborted early
if not HasAcceptableVCRuntime then begin
if not HasRequiredVCRuntimeVersion then begin
IsInstallationFinishedNormally := False;
VCRuntimeMissingOptionsPage := CreateInputOptionPage(wpWelcome,
'Visual C++ Runtime Required',
@ -201,21 +201,17 @@ procedure CurStepChanged(CurStep : TSetupStep);
var
ErrorCode : Integer;
begin
if curStep = ssPostInstall then begin
if not WizardForm.Canceled then begin
if not IsInstallationFinishedNormally then begin
case VCRuntimeMissingOptionsPage.Values[0] of
0: begin
{ install dependencies now, using Microsoft's perma-link }
ShellExec('', 'https://aka.ms/vs/17/release/vc_redist.x64.exe', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
Abort;
end;
1: begin
{ do it later themselves }
MsgBox('Please install required VC++ dependencies first and try again.', mbInformation, MB_OK);
Abort;
end;
end;
if (curStep = ssPostInstall) and not ((WizardForm.Canceled) or (IsInstallationFinishedNormally)) then begin
case VCRuntimeMissingOptionsPage.Values[0] of
0: begin
{ install dependencies now, using Microsoft's perma-link }
ShellExec('', 'https://aka.ms/vs/17/release/vc_redist.x64.exe', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
Abort;
end;
1: begin
{ do it later themselves }
MsgBox('Please install required VC++ dependencies first and try again.', mbInformation, MB_OK);
Abort;
end;
end;
end;