Delphi-Help

uses 

  BDE; 

{Without the Registry:} 

procedure TForm1.Button1Click(Sender: TObject); 

var 

  ThisVersion: SYSVersion; 

begin 

  DbiGetSysVersion(ThisVersion); 

  ShowMessage('BORLAND DATABASE ENGINE VERSION = ' + IntToStr(ThisVersion.iVersion)); 

end; 

{With the Registry:} 

function GetBDEVersion: string; 

var 

  h: hwnd; 

  ptr: Pointer; 

  proc: TSYSVerProc; 

  ver: SYSVersion; 

  idapi: string; 

  reg: TRegistry; 

begin 

  try 

    reg.RootKey := HKEY_CLASSES_ROOT; 

    reg.OpenKey('CLSID\{FB99D710-18B9-11D0-A4CF-00A024C91936}\InProcServer32', False); 

    idapi := reg.ReadString(''); 

    reg.CloseKey; 

  finally 

    reg.Free; 

  end; 

  Result := '<BDE Bulunamadi>'; 

  h      := LoadLibrary(PChar(idapi)); 

  if h <> 0 then  

    try 

      ptr := GetProcAddress(h, 'DbiGetSysVersion'); 

      if ptr <> nil then  

      begin 

        proc := ptr; 

        Proc(Ver); 

        Result := IntToStr(ver.iVersion); 

        Insert('.', Result, 2); 

      end; 

    finally 

      FreeLibrary(h); 

    end; 

end;