Информация о псевдонимах BDE

Как через конфигурацию IDAPI получить физический каталог расположения базы данных, зная ее псевдоним?

Обратите внимание на метод GetAliasParams класса TSession. Возвращенная строка будет содержать искомый путь.

Воспользуемся следующей функцией:

uses
  DbiProcs, DBiTypes;

{ Возвращает каталог расположения базы данных по заданному псевдониму
 (без обратного слеша) }
function GetDataBaseDir(const Alias: string): string;
var
  sp: PChar;
  Res: pDBDesc;

begin
  try
    New(Res);
    sp := StrAlloc(Length(Alias) + 1);
    StrPCopy(sp, Alias);
    if DbiGetDatabaseDesc(sp, Res) = 0 then Result := StrPas(Res^.szPhyName)
    else Result := '';
  finally
    StrDispose(sp);
    Dispose(Res);
  end;
end;