为服务器(工作组) NetResource.dwUsage : RESOURCEUSAGE_CONTAINER NetResource.dwScope : RESOURCETYPE_DISK //列举文件资源信息 //获取指定工作组的网络资源句柄 Res : WNetOpenEnumRESOURCE_GLOBALNET RESOURCETYPE_DISK RESOURCEUSAGE_CONTAINER NetResource lphEnum if Res ltgt NO_ERROR then Exit //执行失败 while True do //列举指定工作组的网络资源 begin Count : FFFFFFFF //不限资源数目 BufSize : 8192 //缓冲区大小设置为 8K GetMemBuf BufSize //申请内存,用于获取工作组信息 //获取计算机名称 Res : WNetEnumResourcelphEnum Count PointerBuf BufSize if Res ERROR_NO_MORE_ITEMS then break //资源列举完毕 if Res ltgt NO_ERROR then Exit //执行失败 Temp : TNetResourceArrayBuf for Ind : 0 to Count - 1 do //列举工作组的计算机名称 begin //获取工作组的计算机名称,2 表示删除quotquot,如wangfajungtwangfajun my_node_2 : treeview1.Items.AddChildmy_node Temp.lpRemoteName 2 my_node_2.imageindex : 2 IncTemp end.