Obtendo a lista de Aliases disponíveis

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'.
 

Contruibuição do Claudio

// Procedure Modificada

procedure TForm1.Button1Click(Sender: TObject);

begin

  Session.GetAliasNames(ListBox1.Items);

end;

Publicidade