F
forza
Unregistered / Unconfirmed
GUEST, unregistred user!
我写了一段列取远程主机共享的代码，但好象98主机的共享没有能列举出来，大家看看原因是什么，应该怎么改：
form1.Memo_ScanInfo.lines.add('***'+ node.Text +' NetBios 列表 ***');
resume :=0; tr := 0; er := 0;
repeat
nStatus := NetShareEnum(ipaddress,1,lpBuffer,$ffffffff, er, tr, @resume);
Shareinfo := PshareInfo1(lpbuffer);
if shareinfo<> nil then
begin
sharenode := form1.TreeView1.Items.AddChild(node,'共享资源');
sharenode.SelectedIndex:= 10;
sharenode.ImageIndex := 10;
sharenode.Expanded := true;
end;
if nstatus = NO_ERROR then
for i:=0 to er-1 do
begin
form1.Memo_ScanInfo.lines.add('共享名: '+widechartostring(shareinfo^.shi1_netname));
tempnode:= form1.TreeView1.Items.AddChild(sharenode,widechartostring(shareinfo^.shi1_netname));
tempnode.SelectedIndex:=14;
tempnode.ImageIndex :=14;
tempnode.Expanded:=true;
inc(shareinfo);
end
else
form1.Memo_ScanInfo.lines.add('列举共享资源失败');
if lpbuffer<> nil then
NetApiBufferFree(lpbuffer);
until (nstatus <> ERROR_MORE_DATA);
2000和XP要建立连接才能列举，但98建立连接不会成功，那段代码就没有列出来。大家想想办法，怎么列出98的共享目录。
多谢了。挺急，一直等着你