用Delphi得到SQL Server的所有的数据库名称(50分)

请问哪位大侠知道,在不用ODBC的情况下,用Delphi得到SQL Server的所有的数据库名称

ado的getDataBase可以，或者从Master数据库中可以找到

Select name from sysdatabases
master 数据库中

可以使用DMO：
procedure TForm1.Button1Click(Sender: TObject);
var
obj:OleVariant;
I:Integer;
begin
obj:=CreateOleObject('SQLDMO.SQLServer');
obj.Connect('SJ_Server','sa','pwd');
//'sa'为SQL Server用户名,'pwd'为密码
for I:=1 to obj.Databases.Count do
begin
ShowMessage(obj.Databases.Item(I).Name);
end;
end;

如果报错“Invalid class string”则从SQL Server安装目录中“Program Files/Microsoft SQL Server/80/Tools/Binn”中找到SQLDMO.dll，并且使用regsvr32.dll注册之。

select name from master..sysdatabases

在查询分析器中：
use master
Select name from sysdatabases
就可以看到所有数据库名字

楼主不道义,都给答案了,还不给分