‘Delphi 实现网络驱动器的映射及断开’为何不能实现?

Question

在网上找了‘Delphi 实现网络驱动器的映射及断开的源码’！但不能实现？
源码如下：
         procedure TForm1.Button4Click(Sender: TObject);
        var
        NetSource:TNetResource;
        begin
            with   NetSource   do
            begin
            dwType:=RESOURCETYPE_ANY;
            lpLocalName:='V:';                //   将远程资源映射到此驱动器
              lpRemoteName:='\\Zacxlk0tdowpkac\pkpm';   //   远程网络资源
              lpProvider:='';                   //   必须赋值,如为空则使用lpRemoteName的值。
              end;            
            WnetAddConnection2(NetSource,'Password',   'administrator',CONNECT_UPDATE_PROFILE);
            //用户名为administrator，口令为 Password－－我没用口令直接用:''end;

Answer 1

注：Zacxlk0tdowpkac为服务器的计算机名称
    PKPM为服务器上的一个共享文件夹的名称并准备将PKPM映射为驱动器 V
    已确定在工作站上可读PKPM共享文件夹的内容！
    

Answer 2

测试了一下楼主的代码，应该没什么问题。请仔细检查远程网络资源是否可被无口令的administrator用户正常访问。

Answer 3

谢谢jadeluo 的回复，我的代码是在局域网上用的，服务器没有限制！

Answer 4

 //登录前先断开网络驱动器V：
  //不管是否有文件打开，断开网络驱动器V：
 WNetCancelConnection2( 'V:', CONNECT_UPDATE_PROFILE, True);如果以前已经映射过，则重新开机时还是需先断开，再重新映射。