Получить путь к базе данных по ее алиасу
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;
Комментарии