Псевдонимы

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

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;

{/codecitation}