Buscar por:

Obtendo a lista de aliases disponíveis

Código

{Tudo que você precisa é de um componente TSession, TListBox e uma StringList. Defina a propriedade SessionName do TSession para 'Session'.

Utilize o seguinte código:}

procedure TForm1.Button1Click(Sender: TObject); 

var 

MyStringList: TStringList; 

i: integer; 

begin 

MyStringList := TStringList.Create; 

Session.GetAliasNames(MyStringList); 

for I := 0 to MyStringList.Count - 1 do 

ListBox1.Items.Add(MyStringList[I]); 

end;

{Utilize o Help do TSession e consulte seus métodos para ver por exemplo como capturar o diretório ou caminho de um Alias com o método 'GetAliasParams' }