怪B事~~ delphi 代码映射网络驱动器 ~~~~~~~~~~~~~ SOS

Question

主要代码如下:::with NetSource do
  begin
    dwType := RESOURCETYPE_ANY;             // 用于指定网络的资源类型
    lpLocalName := 'X:';                    // 将远程资源映射到此驱动器
    lpRemoteName := '\\10.77.0.15\wxjl';    // 远程网络资源
    lpProvider := '';                       // 必须赋值,如为空则使用lpRemoteName 的值。
  end;  Errinfo:=WnetAddConnection2(NetSource,'xcopy','xcopy',CONNECT_UPDATE_PROFILE); // CONNECT_UPDATE_PROFILE下次登录时重新连接  
    if Errinfo = NO_ERROR  then  
     .......***********  问题是::: ********************************************我在客户机器必须先通过xcopy/xcopy 共享访问服务器后,上述程序才能正常映射!!!也就是先在IE中输入\\10.77.0.15
输入xcopy/xcopy 登陆进行后,运行上述代码没有问题, 但是,如果在刚开机时候,共享的文件夹还没有访问过,上述程序提示映射不成功!!!!与没有遇到过类似情况的???客户端: XP
服务端是: win2000server   已经开用户xcopy/xcopy;  共享文件权限也给了 xcopy     

Answer 1

可以在执行前net use \\10.77.0.15 密码 /user:用户 一下.

Answer 2

自己搞定了改成 FTP 了