mirror of
https://github.com/PaperCutSoftware/GhostTrap.git
synced 2025-12-10 13:21:41 -06:00
removing unused variable, also changing the default button to yes when asking user to confirm they would like to download dependencies now
This commit is contained in:
parent
83e75735b2
commit
ca1125ffd9
@ -98,7 +98,6 @@ const
|
|||||||
var
|
var
|
||||||
HasRequiredVCRuntimeVersion : Boolean;
|
HasRequiredVCRuntimeVersion : Boolean;
|
||||||
VCRuntimeMissingOptionsPage : TInputOptionWizardPage;
|
VCRuntimeMissingOptionsPage : TInputOptionWizardPage;
|
||||||
IsInstallationFinishedNormally : Boolean;
|
|
||||||
ReadMoreLink : TLabel;
|
ReadMoreLink : TLabel;
|
||||||
|
|
||||||
procedure ExitProcess(ExitCode : Integer);
|
procedure ExitProcess(ExitCode : Integer);
|
||||||
@ -222,7 +221,7 @@ begin
|
|||||||
if CurPageID = VCRuntimeMissingOptionsPage.ID then begin
|
if CurPageID = VCRuntimeMissingOptionsPage.ID then begin
|
||||||
InstallNow := VCRuntimeMissingOptionsPage.Values[0];
|
InstallNow := VCRuntimeMissingOptionsPage.Values[0];
|
||||||
if InstallNow then begin
|
if InstallNow then begin
|
||||||
if MsgBox('Would you like to install required dependencies now?', mbInformation, MB_YESNO or MB_DEFBUTTON2) = IDYES then begin
|
if MsgBox('Would you like to install required dependencies now?', mbInformation, MB_YESNO or MB_DEFBUTTON1) = IDYES then begin
|
||||||
ShellExec('', 'https://aka.ms/vs/17/release/vc_redist.x64.exe', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
|
ShellExec('', 'https://aka.ms/vs/17/release/vc_redist.x64.exe', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
|
||||||
ExitProcess(9); { Custom exit code }
|
ExitProcess(9); { Custom exit code }
|
||||||
end;
|
end;
|
||||||
@ -241,7 +240,6 @@ begin
|
|||||||
HasRequiredVCRuntimeVersion := IsRequiredVCRuntimeVersionInstalled();
|
HasRequiredVCRuntimeVersion := IsRequiredVCRuntimeVersionInstalled();
|
||||||
{ If the OS is missing required dependencies, the installation process will not go the full length and will be aborted early }
|
{ If the OS is missing required dependencies, the installation process will not go the full length and will be aborted early }
|
||||||
if not HasRequiredVCRuntimeVersion then begin
|
if not HasRequiredVCRuntimeVersion then begin
|
||||||
IsInstallationFinishedNormally := False;
|
|
||||||
VCRuntimeMissingOptionsPage := CreateInputOptionPage(wpLicense,
|
VCRuntimeMissingOptionsPage := CreateInputOptionPage(wpLicense,
|
||||||
'Visual C++ Runtime Required',
|
'Visual C++ Runtime Required',
|
||||||
'You are seeing this page because required dependencies for GhostTrap are missing on your operating system.',
|
'You are seeing this page because required dependencies for GhostTrap are missing on your operating system.',
|
||||||
@ -252,9 +250,5 @@ begin
|
|||||||
VCRuntimeMissingOptionsPage.Add('I will find the required dependencies myself later.');
|
VCRuntimeMissingOptionsPage.Add('I will find the required dependencies myself later.');
|
||||||
VCRuntimeMissingOptionsPage.Values[0] := True;
|
VCRuntimeMissingOptionsPage.Values[0] := True;
|
||||||
CreateLink();
|
CreateLink();
|
||||||
end
|
|
||||||
{ If the OS has the required dependencies, completion of the installation is treated as normal }
|
|
||||||
else begin
|
|
||||||
IsInstallationFinishedNormally := True;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user