Как узнать путь базы данных и её имя? |
Previous Top Next |
Делается это при помощи dbiGetDatabaseDesc:
Code: |
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; |
©Drkb::02540
Взято из http://forum.sources.ru