15 мая 2022 года "Исходники.РУ" отмечают 22-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


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

Делается это при помощи 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;