[[Al González]]

¡Hola!

BDE es una tecnología en desuso, pero podrías hacerlo así:

Código Delphi [-]
implementation

{$R *.dfm}

Uses
  BDE;

procedure TForm1.Button1Click(Sender: TObject);
var
  Env : DBIEnv;
  Desc : DBDesc;
begin
  DbiInit (@Env);

  If DbiGetDatabaseDesc ('DBDemos', @Desc) = 0 Then
    ShowMessage (Desc.szPhyName);
end;

(basado en código de la unidad DBTables.pas de Delphi 7).

Coméntanos si te sirve.

Saludos.

Al González.

P.D. En DBTables.pas, el uso de las funciones DbiInit y DbiGetDatabaseDesc lleva establecimientos y validaciones adicionales. Sugiero las estudies.