Как узнать путь базы данных и её имя?

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