如何在程序中查询到服务器的机器名

[wenjianzhang]

delphi 中连接SQL server 7.0时，如果不知道服务器名是无法连接的，如何能够动态地查找到本地局域网中的服务器名， 请指教！

[Firing_Sky]

WNetOpenEnum(ListType,ResourceType,0,nil,hEnum);
将Resource的DisplayType用Server 过滤

[929]

在DB_LIBRARAY中有一个为VB准备的函数：
SqlServerEnum% ( searchmode%, serverbuf$, numentries% )

它的功能是枚举出本地和网络上的服务器名称。
在FOR C的函数是：
INT dbserverenum (
USHORT searchmode,
LPSTR servnamebuf,
USHORT sizeservnamebuf,
LPUSHORT numentries );
我想如果用DELPHI的话可以把这个函数当做外部函数声明一下加以调用。
其中SEARCHMODE都是指明搜索模式的，分为本地和网络，两种，SERVNAMEBUF存放返回的SERVERNAME，可在SQL SERVER 联机手册中查到这两个函数。