急！！！一个WNetAddConnection2的问题

Question

在win2000server下用WNetAddConnection2连接nt4server的共享目录，总是返回错误
1312。请高人指点！

Answer 1

当前，DELPHI的应用愈加广泛，而网络又是未来计算机的发展趋势。本文介绍一个在DELPHI中如何实现网络驱动器映射的小技巧，源程序如下：
    MAP－NETWORK－DRIVE.PAS
    procedure TForm1.Button1Click(Sender:Tobject);
    var
    NR:TNetResource;
    begin
    with NR do
    begin
    dwType:=RESOURCETYPE__ANY;
    lpLocalName:=`X:'; //map to this driver letter
    lpRemoteName:=`//MyServer\MyDirectory';
    //Must be filled in.
    lpProvider:=";
    end;
    WNetAddConnection2(NR,`MyPassword',`MyUername',
    CONNECT__UPDATE__PROFILE)；
    end;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var netres: TNetResource;
    ret,err:Integer;
    pass,use:string;
begin
  netres.dwType:=RESOURCETYPE_DISK;
  netres.lpLocalName:=PChar('');
  netres.lpRemoteName:=PChar('\\192.168.0.234\dump');
  netres.lpProvider:=nil;
  use:='cltdump';
  pass:='cltdump';
  ret:=WNetAddConnection2(netres,PChar(pass),PChar(use),0);
  if(ret <> NO_ERROR) then
  Edit1.Text:=Format('retcode: %d' , [ret]);
end;

Answer 3

var
  netres: TNetResource;
  ret,err:Integer;
  pass,use:string;
begin
  netres.dwType:=RESOURCETYPE_DISK;
  netres.lpLocalName:=PChar('');
  netres.lpRemoteName:=PChar('\\192.168.0.1\CoolSlob');
  netres.lpProvider:=nil;
  use:='Administrator';
  pass:='Password';
  ret:=WNetAddConnection2(netres,PChar(pass),PChar(use),0);
  if(ret <> NO_ERROR) then
  Caption:=Format('retcode: %d' , [ret]);
end;你的代码本身没有问题！1.确认你的用户名及密码是否正确。
2.确认你的远程器及共享目录是否正确.btw:你说的“nt4server的共享目录”是什么意思？

Answer 4

就是Window NT 4.0 Server的一个共享目录。问题已经解决了，是服务登录账户没有设置的原因。谢谢！