请教如何通过Delphi编程获取本机的共享目录名及其路径?
解决方案 »
- current provider does not support returning multiple recordset from a single execution????
- 如何設置stringgrid中某一行的單元格中顯示的是fsStrikeOut風格的文字。
- delphil7開發出的程序,用審麼工具可以作安裝程序
- 在Delphi中用什么设计报表最好(包括第3方提供)
- 我的一个难题,必将重分答谢!!!!!!
- 再问:请高手来帮我解决在ADO主、从表存储和触发器有效结合的问题!真诚期望您的帮忙!
- 有没有有Delphi4安装盘的朋友,我急需!
- 初学者的API问题.应该很简单.
- 请你指点------一个delphi新手
- 我下了DEPHI 6可是,他不可以被解开,当我解它的时候,windows98,就死机,我该怎么办
- Interface not supported?
- 关于sendBuf的问题
WNetEnumResource(...);
WNetCloseEnum(...);
我用以下方法可以得到某一工作组内的所有主机或某一主机内的所有共享文件夹名
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);
换一个问题吧。怎样才能让程序知道一个共享文件夹打开时需要密码?用WNetAddConnection2, 然后看返回值是否为ERROR_INVALID_PASSWORD