InnoSetup Registry auslesen bei 32bit und 64bit
27.10.2015 - Lesezeit: ~1 Minute
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:
InnoSetup