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