用Tsession的GetAliasParams方法
示例如下
var
MyStringList:Tstringlist;
begin
MyStringList := TStringList.Create;
try
Session.GetAliasParams('DBDEMOS',MyStringList);
{ fill a list box with driver names for the user to select from }
ListBox1.Items := MyStringList;
finally
MyStringList.Free;
end;
end;