你可以发出指令要哪个盘的目录和文件名,然后拷贝到你的机上:
uses shellapi
procedure TForm1.Button1Click(Sender: TObject);
var
opstruc:tshfileopstruct;
frombuf,tobuf:array[0..128] of char;
begin
fillchar(frombuf,sizeof(frombuf),0);
fillchar(tobuf,sizeof(tobuf),0);
//假设把d:/mpg目录下的所有文件拷贝到你完全共享的abc目录下
strcopy(frombuf,'d:/mpg/*.*');
strcopy(tobuf,'//bob/abc/');//其中bob为你的计算机名
with opstruc do
begin
wnd:=handle;
wfunc:=fo_copy;
pfrom:=@frombuf;
pto:=@tobuf;
fflags:=fof_noconfirmation or fof_renameoncollision;
fanyoperationsaborted:=false;
hnamemappings:=nil;
lpszprogresstitle:=nil;
end;
shfileoperation(opstruc);
messagedlg('拷贝完毕!',mtinformation,[mbok],0);
end;
要想得到隐蔽目录的效果,可在共享目录名称后加$,如//bob/abc$,这样别人在网上
邻居看不到目录abc,但却可以访问它.