Как узнать путь базы данных и её имя?
Как узнать путь базы данных и её имя?
Делается это при помощи dbiGetDatabaseDesc:
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;
Взято с Исходников.ru
