Fórum Alguem tem um exemplo de aplicativo BDE #174646

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



Contruibuição do Claudio
// Procedure Modificada


procedure TForm1.Button1Click(Sender: TObject);
begin
Session.GetAliasNames(ListBox1.Items);
end;


Muito mais fácil, não achas???