不能直接取出你想要的结果。你可以先将所有的DSN取到Strings中，再通过函数对Strings
进行遍历，就可选择出想要的结果。下面是你想要的代码：
procedure TForm1.Button1Click(Sender: TObject);
var
Mystringlist : TStringList;
MaxDbCount : Integer;
begin
MyStringList := TStringList.Create;
try
Session.GetDatabaseNames(MyStringList);
for MaxDbCount := 0 to (MyStringList.Count - 1) do
begin
if (Session.GetAliasDriverName(MyStringList.Strings[MaxDbCount]) = 'ORACLE') then
ListBox1.Items.Add(MyStringList.Strings[MaxDbCount]);
end;
finally
MyStringList.Free;
end;
end;
