selecionar Aliases

465 - 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´.