Получить путь к базе данных по ее алиасу

uses BDE;
   { ..... }

procedure ShowDatabaseDesc(DBName: String);
  const
    DescStr = 'Driver Name: %s'#13#10'AliasName: %s'#13#10 + 
                'Text: %s'#13#10'Physical Name/Path: %s';
var
  dbDes: DBDesc;
begin
  dbiGetDatabaseDesc(PChar(DBName), @dbDes);
  with dbDes do
    ShowMessage(Format(DescStr, [szDbType, szName, szText, szPhyName]));
  end;