高分求购：如何查找局域网内的共享文件？(200分)

要求支持通配符＊和？。请各位大虾提供源代码。

黄昏狼的网站有
http://wolfsoft.nugoo.com/index.asp
LAN Explorer1.2源代码

提前一下。

to china_peng:
　　不能下载此文件！

http://delphi.mychangshu.com/dispdoc.asp?id=868

前面有很多这样的帖子呀！

刚才搜索不能用了。

别人写的
procedure TSearchFileThread.Execute;//线程
Var
EnumHandle : THandle;
FileRS : TNetResource;
Buf : Array[1..500] of TNetResource;
BufSize : DWord;
Entries : DWord;
Result : Integer;
begin
mydir := mydir + #0;//mydir为工作组名时可以得到组内所有主机名
//mydir为主机名时可以得到机内所有共享文件夹名
FillChar(FileRS, SizeOf(FileRS) , 0);
With FileRS do begin
dwScope := 2;
dwType := 3;
dwDisplayType := 1;
dwUsage := 2;
lpRemoteName := @mydir[1];
end;
WNetOpenEnum( RESOURCE_GLOBALNET,
RESOURCETYPE_ANY,
0,
@FileRS,
EnumHandle );
Repeat
Entries := 1;
BufSize := SizeOf(Buf);
Result := WNetEnumResource( EnumHandle,Entries,@Buf,BufSize );
If (Result = NO_ERROR) and (Entries = 1) then
begin
s:= StrPas(Buf[1].lpRemoteName); //得到网上资源名，主机或文件夹
Synchronize(AddFile); //Form1.ListBox1.Items.Add(s);
end ;
Until (Entries <> 1) or (Result <> NO_ERROR);
WNetCloseEnum( EnumHandle );
end;
如令mydir 为WorkGroup则可得到WorkGroup内所有计算机名
如令mydir 为//201 则可得到主机//201内所有共享文件夹名
现在的问题是 如令mydir 为//201/share (已知share为//201内一共享文件夹），则
ListBox1内没有显示，即得不到 //201/share 内的共享文件夹名和文件名。
不知何故，请教各位。

这个问题我自己解决了！
可以用以下方法获得已知共享文件夹中的文件。
Found := FindFirst(mydir+'/*.*', $0000003F , searchrec);
while Found = 0 do
begin
listBox1.items.Add(searchrec.name);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);

嘻嘻，上面的程序和代码都是我的作品哟，别忘了给我点分。[]
支持通配符＊和？并不很困难，只是我没做，如果你补上了，发给我好吗？

TO zw84611
：）不好意思；如果给我分，都还给你

不用客气，大家分赃。[][]

我也要分！！！

1、LAN Explorer1.2网站的代码下能下载，为什么？
2、我在其它的网站上下载了这个程序，效果还不错，但没有代码？很遗憾！
3、如果共享的文件夹有密码，有没有办法破解？请提供代码！
4、多谢大家，有时搜索不能用了！可能是我这儿的问题！

留下妹儿。我发原码给你

to china_peng:
我的邮箱：CZZZRENYI@263.NET
谢谢

renyi:
发给你了！

给我也来一份，nb-swt@163.com

多人接受答案了。