网络映射

Question

密码登陆异机共享

Answer 1

with NetSource do begin
              dwType := RESOURCETYPE_ANY;
              lpLocalName := 'x:';
              // 将远程资源映射到此驱动器
              lpRemoteName :=pchar(trim(self.ValueListEditor1.Values['serverlocation']));
              // 远程网络资源
              lpProvider := ''; // 必须赋值,如为空则使用lpRemoteName的值。
            end;
          ErrInfo := WnetAddConnection2(NetSource,pchar(trim(valuelisteditor1.Values['sharepassword'])),pchar(trim(valuelisteditor1.Values['shareusername'])),
            //用户名为Guest，口令为Password
            CONNECT_UPDATE_PROFILE);
         // if ErrInfo = NO_ERROR then
         //   messagebox(0, 'Net connection successful!', '', 0);

Answer 2

with NetSource do begin
              dwType := RESOURCETYPE_ANY;
              lpLocalName := 'x:';
              // 将远程资源映射到此驱动器
              lpRemoteName :=pchar(trim(self.ValueListEditor1.Values['serverlocation']));
              // 远程网络资源
              lpProvider := ''; // 必须赋值,如为空则使用lpRemoteName的值。
            end;
          ErrInfo := WnetAddConnection2(NetSource,pchar(trim(valuelisteditor1.Values['sharepassword'])),pchar(trim(valuelisteditor1.Values['shareusername'])),
            //用户名为Guest，口令为Password
            CONNECT_UPDATE_PROFILE);
         // if ErrInfo = NO_ERROR then
         //   messagebox(0, 'Net connection successful!', '', 0);