1\你说你不懒,我不是很相信
2\我觉得这个问题不需要30分,为什么呢?因为很多人懂,很多地方都有贴出来.物以稀为贵嘛.那为什么你找不到呢?要么懒,要么笨.我相信我们的国人不笨,那就只有一种解释了.没错你找过了,但你没想过你为什么没找到!
3\谢就算了.分我无所谓,给需要的人吧.我有分问问题
4\为了表示诚意就贴一次.哎,又浪费了不少空间
{使用:只有两个函数,映射驱动器,断开映射.你可以这样做先映射,映射成功马上断开.就可以复制文件了.
}
unit Unit2;
interface
uses
Windows;
function NetDisConection(LocalDriver
char):boolean;
function NetConection(LocalDriver,RemoteDriver,User,password
char):boolean;
implementation
function NetConection(LocalDriver,RemoteDriver,User,password
char):boolean;
var
NetR:NETRESOURCE;
intRet:Longint;
begin
NetR.dwScope:=RESOURCE_GLOBALNET;
NetR.dwType:=RESOURCETYPE_DISK;
NetR.dwDisplayType:=RESOURCEDISPLAYTYPE_SHARE;
NetR.dwUsage:=RESOURCEUSAGE_CONNECTABLE;
netr.lpProvider:='';
NetR.lpLocalName:=Localdriver;
NetR.lpRemoteName:=Remotedriver;
intRet:=WNetAddConnection2(NetR,password,user,CONNECT_UPDATE_PROFILE);
result:=(intRet<>0);
end;
function NetDisConection(LocalDriver
char):boolean;
var
intRet:longint;
begin
intRet := WNetCancelConnection2(Localdriver, CONNECT_UPDATE_PROFILE, False);
result:=(intRet<>0);
end;
end.