Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как узнать версию BDE?

01.01.2007
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;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php