InnoSetup Registry auslesen bei 32bit und 64bit

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

function FirebirdDefaultDir() :string;
begin
  if RegQueryStringValue(GetHKLM(),'SOFTWARE\Firebird Project\Firebird Server\Instances','Defaultinstance',result) then
    Result:=AddBackSlash(Result)
  else
    Result:='';
end;

function isNotFirebird() :boolean;
var
  s :string;
begin
  Result:=true;
  s:=FirebirdDefaultDir();
  if s<>'' then
    Result:= not FileExists(s+'bin\fbClient.dll') and not FileExists(s+'WOW64\fbClient.dll');
end;
Tags: