怎么显示网络邻居？

[realsweat]

我现在需要将我机子上面的一个文件拷贝到网络邻居中的某个文件夹里面，但是DriveComboBox控件只能够显示本机的所有驱动器，而不是象资源管理器那样有一个“网络邻居”选项，请问怎样才能够显示网络邻居？

[workboy]

delphi6能解决这个问题

[zfmich]

以下的可以解决你部分问题：

//列举出整个网络中的工作组名称，返回值为TRUE表示执行成功，
//参数List中返回服务器（工作组）的名称
Function GetServerList( var List : TStringList ) : Boolean;
type
TNetResourceArray = ^TNetResource;//网络类型的数组
Var
NetResource : TNetResource;
Buf : Pointer;
Count,BufSize,Res : DWORD;
lphEnum : THandle;
p : TNetResourceArray;
i,j : SmallInt;
NetworkTypeList : TList;
Begin
Result := False;
NetworkTypeList := TList.Create;
List.Clear;

//获取整个网络中的文件资源的句柄，lphEnum为返回名柄
Res := WNetOpenEnum( RESOURCE_GLOBALNET,RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER,Nil,lphEnum);
If Res <> NO_ERROR Then exit;//Raise Exception(Res);//执行失败

//获取整个网络中的网络类型信息
Count := $FFFFFFFF;//不限资源数目
BufSize := 8192;//缓冲区大小设置为8K
GetMem(Buf,BufSize);//申请内存，用于获取工作组信息

Res := WNetEnumResource(lphEnum,Count,Pointer(Buf),BufSize);
If ( Res = ERROR_NO_MORE_ITEMS )//资源列举完毕
or (Res <> NO_ERROR )//执行失败
Then Exit;

P := TNetResourceArray(Buf);
For I := 0 To Count - 1 Do//记录各个网络类型的信息
Begin
NetworkTypeList.Add(p);
Inc(P);
End;

//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 ) //资源列举完毕
or (Res <> NO_ERROR) //执行失败
then break;

P := TNetResourceArray(Buf);
For I := 0 To Count - 1 Do//列举各个工作组的信息
Begin
List.Add( StrPAS( P^.lpRemoteName ));//取得一个工作组的名称
Inc(P);
End;

End;

Res := WNetCloseEnum(lphEnum);//关闭一次列举
If Res <> NO_ERROR Then break;//执行失败

End;

Result := True;
FreeMem(Buf);

NetworkTypeList.Destroy;

End;


//列举出指定工作组GroupName中的计算机名称，返回值为TRUE表示执行成功，
//参数List中返回计算机名称
Function GetUsers( GroupName : string; var List : TStringList ) : Boolean;
type
TNetResourceArray = ^TNetResource;//网络类型的数组
Var
NetResource : TNetResource;
Buf : Pointer;
Count,BufSize,Res : DWord;
Ind : Integer;
lphEnum : THandle;
Temp : TNetResourceArray;
Begin
Result := False;
List.Clear;
FillChar(NetResource,SizeOf(NetResource),0);//初始化网络层次信息

NetResource.lpRemoteName := @GroupName[1];//指定工作组名称
NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//类型为服务器（工作组）
NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;
NetResource.dwScope := RESOURCETYPE_DISK;//列举文件资源信息

//获取指定工作组的网络资源句柄
Res := WNetOpenEnum( RESOURCE_GLOBALNET,RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER,@NetResource,lphEnum);
If Res <> NO_ERROR Then Exit; //执行失败

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 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;

//列举出指定计算机UserName中的共享资源名称，返回值为TRUE表示执行成功，
//参数List中返回共享资源名称
Function GetUserResource( UserName : string ; var List : TStringList ) : Boolean;
type
TNetResourceArray = ^TNetResource;//网络类型的数组
Var
NetResource : TNetResource;
Buf : Pointer;
Count,BufSize,Res : DWord;
Ind : Integer;
lphEnum : THandle;
Temp : TNetResourceArray;
Begin
Result := False;
List.Clear;

FillChar(NetResource,SizeOf(NetResource),0);//初始化网络层次信息
NetResource.lpRemoteName := @UserName[1];//指定计算机名称

//获取指定计算机的网络资源句柄
Res := WNetOpenEnum( RESOURCE_CONNECTED ,RESOURCETYPE_ANY,RESOURCEUSAGE_CONNECTABLE,@NetResource,lphEnum); //RESOURCE_GLOBALNET
If Res <> NO_ERROR Then exit;//执行失败

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 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;

[realsweat]

我是想在一个选择框里面显示网上邻居这个选项。

[cobi]

那等于把系统的destop目录的文件全部拷贝你的选择框里了。

[realsweat]

什么意思？

[cobi]

D6里面的shelltreeview控件可以实现，如果不行的也可以自己实现。
其实就是自己在一个combobox里加入一个“网络邻居”的选项，点击之后则运行zfmich()的代码，然后吧取得的结果用treeview或者listview等控件显示即可

[realsweat]

给分

[movingboy]

以上的代码太太复杂。其实一个函数就可以：
SHBrowseFolder
具体的用法查查MSDN吧。