Версия BDE

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
;

Другое по теме:

• BDE32 приложения в ptp-сети
• Архитектура BDE и его особенности при работе с SQL-серверами 1
• Архитектура BDE и его особенности при работе с SQL-серверами