mirrors/fort
1
0
Fork 0
mirror of https://github.com/tnodir/fort synced 2024-11-15 04:45:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Installer: Refactor url opening

Browse Source
This commit is contained in:
Nodir Temirkhodjaev 2023-12-24 13:47:02 +03:00
parent 74f6f05b86
commit d641d4596a
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
deploy/FortFirewall.iss
View File

@ -125,9 +125,9 @@ begin
Result := ActiveLanguage;
end;
function GetUninstallString(): string;
function GetUninstallString(): String;
var
UninstallKey: string;
UninstallKey: String;
begin
UninstallKey := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{#emit SetupSetting("AppName")}_is1');
if not RegQueryStringValue(HKLM, UninstallKey, 'UninstallString', Result) then
@ -320,6 +320,13 @@ begin
Result := True;
end;
function OpenUrl(Url: String): Boolean;
var
ErrCode: Integer;
begin
Result := ShellExec('open', Url, '', '', SW_SHOW, ewNoWait, ErrCode);
end;
function InitializeSetup: Boolean;
begin
if Unpack() then
@ -350,12 +357,9 @@ begin
end;
#else
if not VCRedist86Exists() then
var
ErrorCode: Integer;
begin
if SuppressibleMsgBox('{cm:InstallVCRedist}', mbCriticalError, MB_OKCANCEL, IDCANCEL) = IDOK then
ShellExec('open', 'https://support.microsoft.com/en-us/help/2977003/the-latest-supported-visual-c-downloads',
'', '', SW_SHOW, ewNoWait, ErrCode);
if SuppressibleMsgBox(ExpandConstant('{cm:InstallVCRedist}'), mbCriticalError, MB_OKCANCEL, IDCANCEL) = IDOK then
OpenUrl('https://support.microsoft.com/en-us/help/2977003/the-latest-supported-visual-c-downloads');
Result := False;
Exit;