Inno RegKeyExists Setup na 64-bitowych systemach

Question

I stworzył instalację z Inno Setup i chciał kwerendy rejestru używając Pascal Script

if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Classes\\Installer\UpgradeCodes\342603A924F08FA4B95B5C283FC13D13') then 

Moja konfiguracja jest 32bit (jak mój program chcę zainstalować), ale na Systemy 64-bitowe, zapytanie jest przekierowywane do HKCR\Wow6432Node\\Installer\UpgradeCodes

Oczywiście klucz nie zostaje znaleziony, mimo że istnieje. Jak mogę wykryć klucz, mimo że moja konfiguracja pozostaje 32-bitowa?

Answer 1

Wymyśliłem to. Można utworzyć funkcję pomocnika takiego w swoim skrypcie:

function GetHKLM: Integer; 
begin 
    if IsWin64 then 
    Result := HKLM64 
    else 
    Result := HKLM32; 
end; 

Potem go używać jak np .:

RegQueryStringValue(
    GetHKLM, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'XYZ', Variable);