function GetIBPath: string;
var
Reg: Tregistry;
begin
Reg := TRegistry.Create;
try
 Reg.RootKey := HKEY_LOCAL_MACHINE;
 if not Reg.OpenKeyReadonly('Software\FirebirdSQL\Firebird\CurrentVersion') then
 begin
  Reg.CloseKey;
  Reg.OpenKeyReadonly('Software\Borland\InterBase\CurrentVersion');
 end;
 Result := Reg.ReadString('ServerDirectory');
 Reg.CloseKey;
 if (Result = '') or not FileExists(Result + 'gbak.exe') then
 begin
  Reg.OpenKeyReadonly('SOFTWARE\Firebird Project\Firebird Server\Instances');
  Result := Reg.ReadString('DefaultInstance');
  if not IsEmptyStr(Result) then
   Result := Result + 'bin\';
  Reg.CloseKey;
 end;
 if (Result = '') or not FileExists(Result + 'gbak.exe') then
 begin
  Reg.OpenKeyReadonly('SOFTWARE\Borland\InterBase\Servers\gds_db');
  Result := Reg.ReadString('ServerDirectory');
  Reg.CloseKey;
 end;
 if (Result = '') or not FileExists(Result + 'gbak.exe') then
 begin
  Reg.OpenKeyReadonly('SYSTEM\CurrentControlSet\Services\InterBaseServer');
  Result := ExtractFilePath(Reg.ReadString('ImagePath'));
  Reg.CloseKey;
 end;
 if (Result = '') or not FileExists(Result + 'gbak.exe') then
 begin
  Reg.OpenKeyReadonly('SYSTEM\CurrentControlSet\Services\FirebirdServerDefaultInst ance');
  Result := ExtractFilePath(Reg.ReadString('ImagePath'));
  Reg.CloseKey;
 end;
 Result := NormalDir(Result);
finally
 FreeAndNil(Reg);
end;
end;