No hay respuestas en este tema

[sir.dev.a.lot]

[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!