列出远程机器的共享目录，要包括隐藏的共享目录 (200分)

呵呵，还是不行！

那为什么

procedure TForm1.NetShareEnum1(ServerNamewchar);
var
cbBuffer,EntriesRead, TotalAvail: longint;
i:integer;
c:NET_API_STATUS;
hEnum:HWND;
p,bufterShareInfo502;
ss:String;
begin
memo1.lines.Clear;
cbBuffer:=0;
hEnum:=0;
c:=NetShareEnum(ServerName, 502, p, cbBuffer, EntriesRead,TotalAvail,hEnum);
if (c = ERROR_SUCCESS ) and (c = ERROR_MORE_DATA) then exit;
if EntriesRead>0 then begin
for i:=0 to EntriesRead-1 do
begin
memo1.lines.Add(string(p^.shi502_netname)+'/'+
string(p^.shi502_remark)+'/'+
intToStr(p^.shi502_max_uses)+'/'+
intToStr(p^.shi502_current_uses)+'/'+
string(p^.shi502_path) );
inc(p);
end;
end;
end;


这段代码不能列出远程机器的隐藏共享呢？

比较精典，但没时间试了，先收藏一下，有时间来和你们一起研究一下！

up

可以看看驱动开发网
http://driverdevelop.yeah.net
后备域名:
http://ddv.jobs2me.com
http://ddv.softregnow.com
原来停好的现在就不知道了

多人接受答案了。