我需要得到这个列表
解决方案 »
- Access violation错误,请问有没办法直接根据地址定位到出错行
- 求助~~~~~很急~~~关于子窗体的问题orz
- 怎么把一个TWinControl的对象和一个已存在窗口的handle关联上?
- 请教菜鸟问题!系统的“运行”即windows键+R,调出的运行窗口怎么才能调出来!
- Data provider or other service returned an E_FAIL status,怎么解决?问题在哪里?
- DELPHI 6。0编译过程的问题?
- 有人碰到过在进程中使用memo组件,退出form报错的问题?
- 做安装程序的二大烦脑。
- Fastreport4.0 文字太长如何能实现这样的省略
- 程序员薪金大讨论!(欢迎大家来探讨探讨:)
- 如何自定义自己的光标图标啊,请大侠们多多帮忙,谢了◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
- 输入法开启关闭热键修改问题
可以具体一些吗? 比如罗列网段内所有机器列表的API 是什么?没有直接的API 函数?
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
ListBox1.Items.Add(ServerList.Item(i));
参 数:
List: 需要填充的List
返回值: 成功: True,并填充List 失败 False
备 注:
版 本:
1.0 2002/10/02 22:44:00
=================================================================}
Function GetSQLServerList(var List: Tstringlist): boolean;
var
i: integer;
sRetValue: String;
SQLServer: Variant;
ServerList: Variant;
begin
Result := False;
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;