delphi 拷贝网络共享文件 代码

 

 

procedure TForm1.Button4Click(Sender: TObject);
var
  NetSource : TNetResource;
  Errinfo:longint;
begin
  with NetSource do
  begin
    dwType := RESOURCETYPE_ANY;             // 用于指定网络的资源类型
    lpLocalName := 'X:';                    // 将远程资源映射到此驱动器
    lpRemoteName := '//10.97.0.15/wxjl';    // 远程网络资源
    lpProvider := '';                       // 必须赋值,如为空则使用lpRemoteName 的值。
  end;
 
  Errinfo:=WnetAddConnection2(NetSource,'xcopy','xcopy',CONNECT_UPDATE_PROFILE); // CONNECT_UPDATE_PROFILE下次登录时重新连接

  if Errinfo = NO_ERROR  then               // 磁盘映射成功，此时在本地可看到网络驱动器X：
    begin
      //showmessage(inttostr(Errinfo));
      // 判断 temp 目录是否存在，不存在则新建一个 temp
      if  not directoryexists(GetCurrentDir+'/temp')   then
              mkdir(GetCurrentDir+'/temp');</