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

Delphi枚举网络工作组及共享信息，获取到所在网络中的所有工作组信息，并检测是否有可以用的共享资源信息，部分代码注解：//WNetCloseEnum关闭一个列举句柄　　Res:=WNetCloseEnum(lphEnum);　　//关闭一次列举　　IfResNO_ERRORThenexit;　　ForJ:=0ToNetworkTypeList.Count-1Do　　//列出各个网络类型中的所有工作组名称　　Begin　　//列出一个网络类型中的所有工作组名称　　NetResource:=TNetResource(NetworkTypeList.Items[J]^);　　//网络类