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

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;

Эта запись была опубликована 14.12.2007в 13:59. В рубриках: Alias, Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.