請問如何得知對方電腦所分享的所有目錄呢? |
尚未結案
|
minjiu
中階會員 發表:27 回覆:119 積分:69 註冊:2002-06-26 發送簡訊給我 |
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
跑net view \\servername >> nv.txt 或\\ip 就可以顯示對方的共享名稱並且轉向輸出到nv.txt檔~~ 不過,有更好的解決方法
procedure TForm1.Button2Click(Sender: TObject); type TNetResourceArray = ^TNetResource; var NetResource : TNetResource; hr,ecount,BUFSIZE,x: dword; hEnum: THandle; buf : POINTER; ResArray : TNetResourceArray; ResList : TStringList; username: string ; begin username:='\\192.168.1.1'; FillChar(NetResource, SizeOf(NetResource), 0); NetResource.lpRemoteName:=@username[1]; resList:=TStringList.Create; hr:=wnetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONNECTABLE,@NetResource,hEnum); if hr=NO_ERROR then while true do begin BUFSIZE:=8192; GETMEM(BUF,BUFSIZE); ecount := $FFFFFFFF; hr := WNetEnumResource(hEnum,ecount,pointer(buf),bufsize); case hr of ERROR_NO_MORE_ITEMS: break; NO_ERROR : begin ResArray:=TNetResourceArray(buf); for x:= 0 to ecount-1 do begin ResList.Add(ResArray^.lpRemoteName); inc(resArray); end; end; else break; end; end; wnetCloseEnum(hEnum); FreeMem(buf,bufsize); if reslist.count >0 then showmessage(reslist.Text); freeandnil(ResList); end;我不懂,不懂,不懂....所以我才來ktop學工夫 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |