在delphi中如何获得运行本应用程序的计算机的SQL Server的服务器名啊？

Question

我用delphi做了一个基于SQL Server管理的数据库应用程序，建立数据库时选择的身份验证是“仅windows”，程序中连接数据库用的是本机的服务器名，那么当别人安装我的这个程序时，如何能获得他机器上的服务器名来连接数据库呢，有没有函数直接获取什么的？大家指点一下，谢谢了！

Answer 1

非常感谢outer2000啊，以后要多想大家学习呀！
结贴！！！

Answer 2

Var
 SQLServer:Variant;
 ServerList:Variant;
 i,nServers:integer;
 sRetValue:String;
begin
 SQLServer := CreateOleObject('SQLDMO.Application');
 ServerList:Variant;
 ServerList:= SQLServer.ListAvailableSQLServers;
 nServers:=ServerList.Count;
   for i := 1 to nservers do
     ListBox1.Items.Add(ServerList.Item(i));
  SQLServer:=NULL;
  serverList:=NULL;
end;

Answer 3

更正:
Var
 SQLServer:Variant;
 ServerList:Variant;
 i,nServers:integer;
 sRetValue:String;
begin
 SQLServer := CreateOleObject('SQLDMO.Application');
 //ServerList:Variant;
 ServerList:= SQLServer.ListAvailableSQLServers;
 nServers:=ServerList.Count;
   for i := 1 to nservers do
     ListBox1.Items.Add(ServerList.Item(i));
  SQLServer:=NULL;
  serverList:=NULL;
end;