Советы по Delphi


              

Псевдонимы


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

    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]



Содержание  Назад  Вперед