怎样在程序中得到本地的SQL Server 2000服务器名？

[arludy]

我想在delphi中实现用列表框列出本地机器上的SQL Server 2000服务器名和相应的数据库名，应该怎么办？我的毕业设计，各位高手多多指教。

[bdesql]

这太简单了麻，SQL 2000服务器名其实就是网终标识的计算机名。 想想办法就OK了。搞定了别忘了谢我。

[kaershaw]

别忘了uses ComObj;

[arludy]

dukelang,还有数据库名呢？

[fenght2004]

知道了服务器就好办了，
建立一个连接到master数据库，一个查询控件(select * from sysdatabases)就可以了

[Tensionli]

可以用一个INI文件吗

[勇者无敌_]

procedure Tfrmsetserver.getserver();
var
sqlserver:variant;
serverlist:variant;
i,nservers:integer;
begin
sqlserver:=createoleobject('SQLDMO.Application');
serverlist:=sqlserver.listavailablesqlservers;
nservers:=serverlist.count;
self.ComboBox1.Clear;
for i:=1 to nservers do
self.ComboBox1.Items.Add(serverlist.item(i));
self.ComboBox1.ItemIndex:=0;
sqlserver:=NULL;
serverlist:=NULL;
end;