Fix installer on 32bit Windows

This commit is contained in:
TingPing 2013-10-12 13:36:43 -04:00
parent adab8567e4
commit 80625a06fa
1 changed files with 4 additions and 3 deletions

View File

@ -203,10 +203,11 @@ begin
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString); RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
if not (sUnInstallString <> '') then if not (sUnInstallString <> '') then
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\HexChat_is1'); sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\HexChat_is1');
if not RegQueryStringValue(HKLM64, sUnInstPath, 'UninstallString', sUnInstallString) then
if not RegQueryStringValue(HKCU64, sUnInstPath, 'UninstallString', sUnInstallString) then
if not RegQueryStringValue(HKLM32, sUnInstPath, 'UninstallString', sUnInstallString) then if not RegQueryStringValue(HKLM32, sUnInstPath, 'UninstallString', sUnInstallString) then
RegQueryStringValue(HKCU32, sUnInstPath, 'UninstallString', sUnInstallString); if not RegQueryStringValue(HKCU32, sUnInstPath, 'UninstallString', sUnInstallString) then
if IsWin64 then
if not RegQueryStringValue(HKLM64, sUnInstPath, 'UninstallString', sUnInstallString) then
RegQueryStringValue(HKCU64, sUnInstPath, 'UninstallString', sUnInstallString);
Result := sUnInstallString; Result := sUnInstallString;
end; end;