115992.htm

在天极网上发布的各类delphi原码及技巧文档

:= WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,</p><p>　　RESOURCEUSAGE_CONTAINER, 
@NetResource,lphEnum);</p><p>　　If Res &#60;&#62; NO_ERROR Then break;//执行失败</p><p>　　While 
true Do//列举一个网络类型的所有工作组的信息</p><p>　　Begin</p><p>　　　Count := $FFFFFFFF;//不限资源数目</p><p>　　　BufSize 
:= 8192;//缓冲区大小设置为8K</p><p>　　　GetMem(Buf, BufSize);//申请内存，用于获取工作组信息</p><p>　　　//获取一个网络类型的文件资源信息，</p><p>　　　Res 
:= WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);</p><p>　　If ( Res = 
ERROR_NO_MORE_ITEMS ) //资源列举完毕</p><p>　　or (Res &#60;&#62; NO_ERROR) //执行失败</p><p>　　then 
break;</p><p>　　　P := TNetResourceArray(Buf);</p><p>　　　For I := 0 To Count - 1 
Do//列举各个工作组的信息</p><p>　　Begin</p><p>　　　List.Add( StrPAS( P^.lpRemoteName ));//取得一个工作组的名称</p><p>　　　Inc(P);</p><p>　　End;</p><p>　　End;</p><p>　　３、获取工作组信息的完全源代码//列举出整个网络中的工作组名称，返回值为TRUE表示执行成功，　</p><p>//参数List中返回服务器（工作组）的名称<br>
Function GetServerList( var List : TStringList ) : Boolean;<br>
Var</p><p>　　NetResource : TNetResource;</p><p>　　Buf : Pointer;</p><p>　　Count,BufSize,Res 
: DWORD;</p><p>　　lphEnum : THandle;</p><p>　　p : TNetResourceArray;</p><p>　　i,j 
: SmallInt;</p><p>　　NetworkTypeList : TList;<br>
Begin</p><p>　　Result := False;</p><p>　　NetworkTypeList := TList.Create;</p><p>　　List.Clear;//获取整个网络中的文件资源的句柄，lphEnum为返回名柄</p><p>　　Res 
:= WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,</p><p>　　RESOURCEUSAGE_CONTAINER, 
Nil,lphEnum);</p><p>　　If Res &#60;&#62; NO_ERROR Then exit;//Raise Exception(Res);//执行失败//获取整个网络中的网络类型信息</p><p>　　　Count 
:= $FFFFFFFF;//不限资源数目</p><p>　　　BufSize := 8192;//缓冲区大小设置为8K</p><p>　　　GetMem(Buf, 
BufSize);//申请内存，用于获取工作组信息</p><p>　　　Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), 
BufSize);</p><p>　　If ( Res = ERROR_NO_MORE_ITEMS )//资源列举完毕</p><p>　　or (Res &#60;&#62; 
NO_ERROR )//执行失败</p><p>　　Then Exit;</p><p>　　　P := TNetResourceArray(Buf);</p><p>　　For 
I := 0 To Count - 1 Do//记录各个网络类型的信息</p><p>　　　Begin</p><p>　　　　NetworkTypeList.Add(p);</p><p>　　　　Inc(P);</p><p>　　　End;</p><p>　　//WNetCloseEnum关闭一个列举句柄</p><p>　　Res 
:= WNetCloseEnum(lphEnum);//关闭一次列举</p><p>　　If Res &#60;&#62; NO_ERROR Then exit;</p><p>　　　For 
J := 0 To NetworkTypeList.Count-1 Do //列出各个网络类型中的所有工作组名称</p><p>　　　Begin//列出一个网络类型中的所有工作组名称</p><p>　　　　NetResource 
:= TNetResource(NetworkTypeList.Items[J]^);//网络类型信息//获取某个网络类型的文件资源的句柄，NetResource为网络类型信息，lphEnum为返回名柄</p><p>　　　　Res 
:= WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,</p><p>　　　　RESOURCEUSAGE_CONTAINER, 
@NetResource,lphEnum);</p><p>　　　If Res &#60;&#62; NO_ERROR Then break;//执行失败</p><p>　　While 
true Do//列举一个网络类型的所有工作组的信息</p><p>　　Begin</p><p>　　　Count := $FFFFFFFF;//不限资源数目</p><p>　　　BufSize 
:= 8192;//缓冲区大小设置为8K</p><p>　　　GetMem(Buf, BufSize);//申请内存，用于获取工作组信息</p><p>　　　//获取一个网络类型的文件资源信息，</p><p>　　　Res 
:= WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);</p><p>　　If ( Res = 
ERROR_NO_MORE_ITEMS ) //资源列举完毕</p><p>　　or (Res &#60;&#62; NO_ERROR) //执行失败</p><p>　　then 
break;</p><p>　　　P := TNetResourceArray(Buf);</p><p>　　For I := 0 To Count - 1 Do//列举各个工作组的信息</p><p>　　　Begin</p><p>　　　　List.Add( 
StrPAS( P^.lpRemoteName ));//取得一个工作组的名称</p><p>　　　　Inc(P);</p><p>　　　End;</p><p>　　End;</p><p>　　　Res 
:= WNetCloseEnum(lphEnum);//关闭一次列举</p><p>　　　If Res &#60;&#62; NO_ERROR Then break;//执行失败</p><p>　　End;</p><p>　　　Result 
:= True;</p><p>　　　FreeMem(Buf);</p><p>　　　NetworkTypeList.Destroy;<br>
End;</p><p>　　二、列举一个工作组中的计算机名称</p><p>　　在WNetOpenEnum函数中，将参数lpNetResource中的lpRemoteName部分指定为一个工作组的名称（如“MyWorkGroup”），可以获取一个句柄，在WNetEnumResource中利用这个句柄，可以获取一个NetResource类型的数组，每个NetResource元素的lpRemoteName部分即为一个计算机名称（如“\\wangfajun”）。</p><p>　　具体的请参见以下程序段及注释信息。</p><p>　　NetResource.lpRemoteName 
:= @GroupName[1];//指定工作组名称</p><p>　　NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//显示类型为服务器（工作组）</p><p>　　NetResource.dwUsage 
:= RESOURCEUSAGE_CONTAINER;</p><p>　　NetResource.dwScope := RESOURCETYPE_DISK;//列举文件资源信息</p><p>　　//获取指定工作组的网络资源句柄</p><p>　　Res 
:= WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,</p><p>　　RESOURCEUSAGE_CONTAINER, 
@NetResource,lphEnum);</p><p>　　获取计算机名称的完全程序源代码如下：</p><p>　　//列举出指定工作组GroupName中的计算机名称，返回值为TRUE表示执行成功，//参数List中返回计算机名称Function 
GetUsers( GroupName : string; var List : TStringList ) : Boolean;Var</p><p>　　NetResource 
: TNetResource;</p><p>　　Buf : Pointer;</p><p>　　Count,BufSize,Res : DWord;</p><p>　　Ind 
: Integer;</p><p>　　lphEnum : THandle;</p><p>　　Temp : TNetResourceArray;<br>
Begin </p><p>　　Result := False;</p><p>　　List.Clear;</p><p>　　FillChar(NetResource, 
SizeOf(NetResource), 0);//初始化网络层次信息</p><p>　　NetResource.lpRemoteName := @GroupName[1];//指定工作组名称</p><p>　　NetResource.dwDisplayType 
:= RESOURCEDISPLAYTYPE_SERVER;//类型为服务器（工作组）</p><p>　　NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;</p><p>　　NetResource.dwScope 
:= RESOURCETYPE_DISK;//列举文件资源信息</p><p>　　//获取指定工作组的网络资源句柄</p><p>　　Res := WNetOpenEnum( 
RESOURCE_GLOBALNET, RESOURCETYPE_DISK,</p><p>　　RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);</p><p>　　If 
Res &#60;&#62; NO_ERROR Then Exit; //执行失败</p><p>　　While True Do//列举指定工作组的网络资源</p><p>　Begin</p><p>　　Count 
:= $FFFFFFFF;//不限资源数目</p><p>　　BufSize := 8192;//缓冲区大小设置为8K</p><p>　　GetMem(Buf, 
BufSize);//申请内存，用于获取工作组信息</p><p>　　//获取计算机名称</p><p>　　Res := WNetEnumResource(lphEnum, 
Count, Pointer(Buf), BufSize);</p><p>　　If Res = ERROR_NO_MORE_ITEMS Then break;//资源列举完毕</p><p>　　If 
(Res &#60;&#62; NO_ERROR) then Exit;//执行失败</p><p>　　Temp := TNetResourceArray(Buf);</p><p>　　For 
Ind := 0 to Count - 1 do//列举工作组的计算机名称</p><p>　Begin</p><p>　　//获取工作组的计算机名称，+2表示删除"\\"，如\\wangfajun=&#62;wangfajun</p><p>　　List.Add(Temp^.lpRemoteName 
+ 2);</p><p>　　Inc(Temp);</p><p>　End;</p><p>　End;</p><p>　　Res := WNetCloseEnum(lphEnum);//关闭一次列举</p><p>　　If 
Res &#60;&#62; NO_ERROR Then exit;//执行失败</p><p>　　Result := True;</p><p>　　FreeMem(Buf);<br>
End;</p><p>　　三、列举一个计算机中的共享资源</p><p>　　在WNetOpenEnum函数中，将参数lpNetResource中的lpRemoteName部分指定为一个计算机的名称（如“\\wangfajun”），可以获取一个句柄，在WNetEnumResource中利用这个句柄，可以获取一个NetResource类型的数组，每个NetResource元素的lpRemoteName部分即为计算机中的共享资源名称（可以是共享目录和文件名称、共享打印机名称等，如“\\wangfajun\共享文件”）。</p><p>　　具体的请参见以下程序段及注释信息。</p><p>　　NetResource.lpRemoteName 
:= @UserName[1];//指定计算机名称</p><p>　　//获取指定计算机的网络资源句柄</p><p>　　Res := WNetOpenEnum( 
RESOURCE_GLOBALNET, RESOURCETYPE_ANY,</p><p>　　RESOURCEUSAGE_CONNECTABLE, @NetResource,lphEnum);</p><p>　　获取计算机名称的完全程序源代码如下：</p><p>　　//列举出指定计算机UserName中的共享资源名称，返回值为TRUE表示执行成功，//参数List中返回共享资源名称Function 
GetUserResource( UserName : string ; var List : TStringList ) : Boolean;Var</p><p>　　NetResource