列举指定工作组的网络资源

　　Begin

　　Count := $FFFFFFFF;//不限资源数目

　　BufSize := 8192;//缓冲区大小设置为8K

　　GetMem(Buf, BufSize);//申请内存，用于获取工作组信息

　　//获取指定计算机的网络资源名称

　　Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);

　　If Res = ERROR_NO_MORE_ITEMS Then break;//资源列举完毕

　　If (Res <> NO_ERROR) then Exit;//执行失败

　　　Temp := TNetResourceArray(Buf);

　　　For Ind := 0 to Count - 1 do

　　Begin

　　　//获取指定计算机中的共享资源名称，+2表示删除"\\"，

　　　//如\\wangfajun=>wangfajun

　　　List.Add(Temp^.lpRemoteName + 2);

　　　Inc(Temp);

　　End;

　　End;

　　Res := WNetCloseEnum(lphEnum);//关闭一次列举

　　If Res <> NO_ERROR Then exit;//执行失败

　　Result := True;

　　FreeMem(Buf);
End;

　　以上程序在PWIN98+DELPHI3.0下调试通过。