try SQLServer := CreateOleObject('SQLDMO.Application'); ServerList := SQLServer.ListAvailableSQLServers; server_count := ServerList.Count; if server_count <= 0 then begin showmessage('局域网内没有可选择的服务器!') application.Terminate end
for i:=1 to server_count do begin if ServerList.item(i)<>'then rg_server.Items.Add(ServerList.item(i)); end SQLServer := NULL; serverList := NULL; except showmessage('创建服务器列表失败!') application.Terminate end; 哪位高人能把它写全,能走
----------------------------------------------
-