FBServer.Exenin Yolunu Almak

[mhizar]

Arkadaşlar karşı pcde eğer kurulu ise FbServer.exenin yolunu nasıl alabilirim.Genelde

Kod: Tümünü seç

C:\Program Files\Firebird\Firebird_1_5\BIN\FBSERVER.EXE

şeklinde ama bazen değişebiliyor.Artı Firebird2.0 kurulu olma ihtimali de var artık.
Teşekkürler...

[White Rose]

sanırım bu kod işinizi görür

Kod: Tümünü seç

function GetFBRootDir: string;
var
     Reg: TRegistry;
begin
     Reg := TRegistry.Create(KEY_READ);
     try
       Reg.RootKey := HKEY_LOCAL_MACHINE;
         if Reg.KeyExists('\Software\Firebird Project\Firebird Server\Instances') then begin
            if Reg.OpenKeyReadOnly('\Software\Firebird Project\Firebird Server\Instances') then begin
               if Reg.ValueExists('DefaultInstance') then begin
                  result := Reg.ReadString('DefaultInstance');
               end;
               Reg.CloseKey;
            end else result := '';
         end else result := '';
     finally
       Reg.free;
     end;
end;

[mhizar]

Evet görüyor.Teşekkür ederim.