實例講解如何返回網絡中的SQL Server列表

    免費看《Windows CE 嵌入式系統開發從基礎到實踐》

　　返回網絡中SQLServer列表:

　　示例如下

　　功 能: 返回網絡中SQLServer列表

　　參 數:

　　List: 需要填充的TstringList

　　返回值: 成功: True並填充List 失敗 False

　　備 注:

　　版 本:

　　 // ::

　　=================================================================}
　　function GetSQLServerList(List: TstringList): boolean;
　　var
　　i: integer;
　　SQL Server: Variant;
　　ServerList: Variant;
　　begin
　　ListClear;
　　try
　　SQLServer:= CreateOleObject(SQLDMOApplication);
　　ServerList:= SQLServerListAvailableSQLServers;
　　for i:= to ServerlistCount do
　　listAdd(Serverlistitem(i));
　　Result:= True;
　　Finally
　　SQLServer:= NULL;
　　ServerList:= NULL;
　　end;
　　end;

From:http://tw.wingwit.com/Article/program/SQLServer/201311/22429.html