No hay respuestas en este tema

[sir.dev.a.lot]

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