WNetAddConnection2该如何更好的利用？

procedure TForm1.Button1Click(Sender : TObject);
var
  NetSource : TNetResource;
begin
  with NetSource do
  begin
    dwType := RESOURCETYPE_ANY;
    lpLocalName := 'X:';
    // 将 远 程 资 源 映 射 到 此 驱 动 器
    lpRemoteName := '\\hqServer\sys';
    // 远 程 网 络 资 源
    lpProvider := '';
    // 必 须 赋 值, 如 为 空 则 使 用lpRemoteName 的 值。
  end;
  WnetAddConnection2(NetSource,'Password','Guest',CONNECT_UPDATE_PROFILE);
   // 用 户 名 为Guest， 口 令 为Password
   // 下 次 登 录 时 重 新 连 接
  // 此 时 在Windows 资 源 管 理 器 中可 看 到 网 络 驱 动 器X：
//进行一些你需要的操作，如拷贝，删除，如同在本地硬盘一样  
if MessageDlg('Are you sure to disconnect Drive ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes
  then
    // 不 管 是 否 有 文 件 打 开， 断 开 网 络 驱 动 器X：
 WNetCancelConnection2( 'X:', CONNECT_UPDATE_PROFILE, True);
end;