[TRUCO DELPHI] Version del BDE Instalada, usando el Registro ?
delphi
uses BDE, Registry, Windows; // ... function GetBDEVersion: string; var hDll : hWnd; pFunc : Pointer; sIdAPI : string; SysVer : SYSVersion; SysVerProc: TSYSVerProc; begin Result := ''; with TRegistry.Create do try RootKey := HKEY_CLASSES_ROOT; if OpenKey('CLSID{FB99D710-18B9-11D0-A4CF-00A024C91936}InProcServer32', False) then begin sIdAPI := ReadString(''); CloseKey; end; finally Free; end; hDll := LoadLibrary(PChar(idapi)); if hDll <> 0 then try pFunc := GetProcAddress(hDll, 'DbiGetSysVersion'); if pFunc <> nil then begin SysVerProc := pFunc; SysVerProc(SysVer); Result := IntToStr(SysVer.iVersion); Insert('.', Result, 2); end; finally FreeLibrary(hDll); end; end;
Saludos!