pgadmin-org
/
pgadmin4
mirror of https://github.com/pgadmin-org/pgadmin4.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Use HKA registry key instead of HKLM/HKEY_LOCAL_MACHINE in Windows installer.iss.in file.

pull/8414/head
Akshay Joshi 2025-02-05 15:47:59 +05:30
parent efd0dd2ac0
commit 9f4ce1e7d1
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkg/win32/installer.iss.in
View File

@ -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);