Fixed check problems when installing Greenshot on 32 bit windows

git-svn-id: http://svn.code.sf.net/p/greenshot/code/trunk@1871 7dccd23d-a4a3-4e1f-8c07-b4c1b4018ab4
This commit is contained in:
RKrom 2012-05-17 19:55:21 +00:00
commit b552e6914e

View file

@ -227,10 +227,11 @@ begin
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{#emit SetupSetting("AppId")}_is1'); sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{#emit SetupSetting("AppId")}_is1');
sUnInstallString := ''; sUnInstallString := '';
// Retrieve uninstall string from HKLM(32/64) or HKCU(32/64) // Retrieve uninstall string from HKLM(32/64) or HKCU(32/64)
if not RegQueryStringValue(HKLM64, sUnInstPath, 'UninstallString', sUnInstallString) then if not RegQueryStringValue(HKLM32, sUnInstPath, 'UninstallString', sUnInstallString) then
if not RegQueryStringValue(HKCU64, sUnInstPath, 'UninstallString', sUnInstallString) then if not RegQueryStringValue(HKCU32, sUnInstPath, 'UninstallString', sUnInstallString) then
if not RegQueryStringValue(HKLM32, sUnInstPath, 'UninstallString', sUnInstallString) then if IsWin64 then
RegQueryStringValue(HKCU32, sUnInstPath, 'UninstallString', sUnInstallString); if not RegQueryStringValue(HKLM64, sUnInstPath, 'UninstallString', sUnInstallString) then
RegQueryStringValue(HKCU64, sUnInstPath, 'UninstallString', sUnInstallString);
Result := sUnInstallString; Result := sUnInstallString;
end; end;