Псевдонимы

Попробуйте следующий код:

var

  theStrList: TStringList;
  GPath: String
;
begin

  theStrList := TStringList.Create;
  {Используем GetAliasParams для получения псевдонимов и ассоциированных с ними путей}
  Session.GetAliasParams(<Здесь псевдоним из выпадающего списка>,theStrList);
  {Удаляем первые шесть символов, которые всегда равны "PATH="}
  GPath := copy(theStrList[0],6,length(theStrList[0]))
  theStrList.Free;
end;

Другое по теме:

• Динамически создаваемые псевдонимы
• Добавление псевдонима с помощью функции DbiAddAlias
• Задание псевдонима программным путем