如何查找网上邻居里其它计算机共享的目录？？？

[apollp]

我想作成类似Delphi的SelectDircetory函数的效果，只显示网上邻居的内容。不知道有没有直接实现的函数？或者请各位大侠教我如何查找网上邻居里其它计算机共享的目录，最好有部分代码。谢谢

[AlphaOne]

WNetEnumResource()
WNetOpenResource()

[ch81]

你要的效果，如下：
procedure TForm1.Button1Click(Sender: TObject);
var
ppidl, iil: PITEMIDLIST;
bi: BROWSEINFO;
ret: Array[0..MAX_PATH - 1] of Char;
begin
SHGetSpecialFolderLocation(
Handle,
CSIDL_NETWORK,
ppidl);

bi.hwndOwner := Handle;
bi.pidlRoot := ppidl;
bi.pszDisplayName := nil;
bi.lpszTitle := 'NetWork';
bi.ulFlags := BIF_BROWSEINCLUDEFILES or BIF_RETURNONLYFSDIRS or BIF_STATUSTEXT;
bi.lpfn := nil;
iil := SHBrowseForFolder(bi);
if iil <> nil then
begin
SHGetPathFromIDList(iil, ret);
ShowMessage(ret);
end;
end;
如果你要人工遍历各种资源，用wnetenumresource

[TERRYZZP]

对不起，我想问一下，上面的代码中，为什么我在运行是总是不认识 PITEMIDLIST 和 BROWSEINFO，是D6和D5的关系吗，还是需要什么头文件