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