Delphi枚举网络工作组及共享信息.rar下载

Delphi枚举网络工作组及共享信息，获取到所在网络中的所有工作组信息，并检测是否有可以用的共享资源信息，部分代码注解：//WNetCloseEnum关闭一个列举句柄 　　Res:= WNetCloseEnum(lphEnum); 　　//关闭一次列举 　　If Res <> NO_ERROR Then exit; 　　For J := 0 To NetworkTypeList.Count-1 Do 　　//列出各个网络类型中的所有工作组名称 　　Begin 　　//列出一个网络类型中的所有工作组名称 　　NetResource := TNetResource(NetworkTypeList.Items[J]^); 　　//网络类型信息 　　//获取某个网络类型的文件资源的句柄，NetResource为网络类型信息，lphEnum为返回名柄 　　Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 　　RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum); 　　If Res <> NO_ERROR Then break; 　　//执行失败 　　While true Do 　　//列举一个网络类型的所有工作组的信息 　　Begin 　　Count := $FFFFFFFF; 　　//不限资源数目 　　BufSize := 8192; 　　//缓冲区大小设置为8K 　　GetMem(Buf, BufSize); 　　//申请内存，用于获取工作组信息，获取一个网络类型的文件资源信息， 　　Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize); 　　If ( Res = ERROR_NO_MORE_ITEMS ) 　　//资源列举完毕