¡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.