资源描述：
《计算机学习delphi6函数复习指导4》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、计算机学习Delphi6函数复习指导4功能：列举工作纽中所有的计算机参数：list:需要填充的list返回值：成功：true,并填充list失败：false;备注：版木：1.02002/10/030&00:00functiongetusers(groupname:string;varlist:tstringlist):boolean;typetnetresourcearray=Atnetresource;//网络类型的数组i:integer;buf:pointer;temp:tnetresourcean*ay;lphenum:thandle;ne
2、tresource:tnetresource;count,bufsize,res:dword;beginresult:=false;list.clear;fillchar(netresource,sizeof(netresource),0);//初始化网络层次信息netresource.lpremotename:=@groupname[l];//扌旨定匚作组名称netresource.dwdisplaytype:=resourcedisplaytype_server;//^型为服务器(工作组)netresource.dwusage:=resour
3、ceusage_container;netresource.dwscope:=resourcetype_disk;//列举文件资源信息〃获取指定工作组的网络资源句柄res:=wnetopenenum(resource_globalnet,resourcetype_disk,resourceusage_container,@netresourceJphenum);讦res<>no_errorthenexit;〃执行失败whiletruedo//列举指定工作纽的网络资源begincount:=〃不限资源数目bufsize:=8192;//缓冲区大小设
4、置为8kgetmem(buf,bufsize);//申请内存，用于获取T•作组信息〃获取计算机名称res:=wnetenumresource(lphenum,count,pointer(buf),bufsize);ifres=error_no_more_itemsthenbreak;//资源列举完毕if(res<>no_crror)thenexit;//执行失败temp:=tnetresourcearray(buf);fori:=0tocount-1do//列举工作组的计算机名称begin〃获取匚作纽■的计算机名称，+2表示删除”\",如\w
5、angfajun=>wangfajunlist.add(tempA.lpremotename+2);inc(tcmp);end;end;res:=wnetcloseenum(lphenum);〃关闭一次列举讦res<>no_crrorthenexit;//执行失败result:=true;freemem(buf)；end;功能：列举所有网络类型参数：list:需要填充的list返冋值：成功：true,并填充list失败:false;备注：版本：1.02002/10/030&54:00functiongetnetlist(varlist:tstri
6、nglist):boolean;typetnetresourcearray=Atnetresource;//网络类型的数组varp:tnetresourcearray;buf:pointer;i:smallint;lphcnum:thandlc;netresource:tnetresource;count,bufsize,res:dword;beginresult:=false;list.clcar;res:=wnetopenenum(resource_globalnet$resourcetype_disk,resourceusage_conta
7、iner,niljphenum);ifres<>no_errorthenexit;//执行失败count:=$ffffffff：〃不限资源数0bufsize:=8192;//缓冲区大小设置为8kgetmem(buf,bufsize);//申请内存，用于获取工作组信息res:=wnetenumresource(lphenum,count,pointer(buf),bufsize);//获取网络类型信息〃资源列举完毕〃执行失败讦(res=error_no_more」tems)or(res<>no_error)thenexit;p:=tnetresou
8、rcearra功能：映射网络驱动器参数：netpath:想要映射的网络路径password:访问密码localpath木地路径返回值：成
