[TRUCO DELPHI] Ruta de las Librerias BDE - Borland Database Engine.
delphi
uses Registry; // ... function BDEDLLPath: string; begin Result := 'C:\Program Files\Borland\Common Files\BDE'; with TRegistry.Create do try RootKey := HKEY_LOCAL_MACHINE; if OpenKey('Software\Borland\Database Engine',False) then begin if ValueExists('DLLPATH') then Result := ReadString('DLLPATH') + ''; CloseKey; end; finally Free; end; end;
Saludos!