From 9f4ce1e7d1097cbfbb8df84807534e338bbf1b3e Mon Sep 17 00:00:00 2001 From: Akshay Joshi Date: Wed, 5 Feb 2025 15:47:59 +0530 Subject: [PATCH] Use HKA registry key instead of HKLM/HKEY_LOCAL_MACHINE in Windows installer.iss.in file. --- pkg/win32/installer.iss.in | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/pkg/win32/installer.iss.in b/pkg/win32/installer.iss.in index f90503349..004f1cd87 100644 --- a/pkg/win32/installer.iss.in +++ b/pkg/win32/installer.iss.in @@ -153,8 +153,7 @@ var begin sUnInstRegKey := 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppName}{#CheckOldInstallerVersion}_is1'; sUnInstPath := ''; - if not RegQueryStringValue(HKLM, sUnInstRegKey, 'UninstallString', sUnInstPath) then - RegQueryStringValue(HKCU, sUnInstRegKey, 'UninstallString', sUnInstPath); + RegQueryStringValue(HKA, sUnInstRegKey, 'UninstallString', sUnInstPath); Result := sUnInstPath; end; @@ -188,7 +187,7 @@ function CheckPgAdminAlreadyInstalled: Boolean; var Version: String; begin - if RegKeyExists(HKEY_LOCAL_MACHINE,'Software\{#MyAppName}\{#CheckOldInstallerVersion}') then + if RegKeyExists(HKA,'Software\{#MyAppName}\{#CheckOldInstallerVersion}') then begin if UnInstallOldVersion() < 3 then begin @@ -196,10 +195,10 @@ begin end; end; - if RegValueExists(HKEY_LOCAL_MACHINE,'Software\{#MyAppName}', 'Version') then + if RegValueExists(HKA,'Software\{#MyAppName}', 'Version') then begin UpgradeMode := True; - RegQueryStringValue(HKEY_LOCAL_MACHINE,'Software\{#MyAppName}', 'Version', Version); + RegQueryStringValue(HKA,'Software\{#MyAppName}', 'Version', Version); if CompareVersions(Version, '{#MyAppFullVersion}') = 1 then begin MsgBox(ExpandConstant('{cm:NewerVersionExists}' + '(v' + Version + ') is already installed' ), mbInformation, MB_OK);