实例讲解如何返回网络中的SQL Server列表

　　示例如下：

　　功 能: 返回网络中SQLServer列表

　　参 数:

　　List: 需要填充的TstringList

　　返回值: 成功: True,并填充List 失败 False

　　备 注:

　　版 本:

　　1.0 2002/10/02 22:44:00

　　=================================================================}
　　function GetSQLServerList(List: TstringList): boolean;
　　var
　　i: integer;
　　SQL Server: Variant;
　　ServerList: Variant;
　　begin
　　List.Clear;
　　try
　　SQLServer:= CreateOleObject('SQLDMO.Application');
　　ServerList:= SQLServer.ListAvailableSQLServers;
　　for i:= 1 to Serverlist.Count do
　　list.Add(Serverlist.item(i));
　　Result:= True;
　　Finally
　　SQLServer:= NULL;
　　ServerList:= NULL;
　　end;
　　end;

原文转自：http://www.ltesting.net