请问这个函数怎么用？？？？

[dragonth]

请问这个函数怎么用？？？？
{$EXTERNALSYM WNetAddConnection2}

function WNetAddConnection2(var lpNetResource: TNetResource;
lpPassword, lpUserName: PChar; dwFlags: DWORD): DWORD; stdcall;
上面的函数在Windows单元，WNetAddConnection，WNetAddConnectionA，WNetAddConnectionW，WNetAddConnection2，WNetAddConnection2A，WNetAddConnection2W，WNetAddConnection3，WNetAddConnection3A，WNetAddConnection3W 等是用来创建一个网络资源的永久连接，假如我要和“192.168.192.181”，用户名是：User，密码是：123，建立连接，使用上面的函数该如何用法，请各位大侠指教，谢谢

[xiangwangz]

//很简单


var nr:tNETRESOURCE;
begin
try
FillChar(NR, SizeOf(NR), 0);
//把NR添充为byte类型0
NR.dwType := RESOURCETYPE_DISK;
NR.lpLocalName := nil;
NR.lpRemoteName :=ip;
NR.lpProvider:=nil;
if WNetAddConnection2(nr,mima,yonghu,0)=0 then
//0为成功的返回值
//... 成功操作
else
//...失败的操作

end;
end;

[xiangwangz]

//上面的'mima'换成你的 123 ;'yonghu'换成你的‘User’

[xiangwangz]

//'ip'换成 '192.168.192.181'

[menggirl]

var
NR: NETRESOURCE;
Ret: DWORD;
S: string;
begin
S := '\\remotemachine';
NR.dwType := RESOURCETYPE_ANY;
NR.lpLocalName := nil;
NR.lpRemoteName := PChar(S);
NR.lpProvider := nil;
Ret := WNetAddConnection2(NR,PChar(edtPwd.Text),PChar(edtUser.Text),CONNECT_UPDATE_PROFILE);
if Ret <> NO_ERROR then
begin
if Ret <> ERROR_EXTENDED_ERROR then RaiseLastWin32Error
else CallNetExtError;
end
else begin
Application.MessageBox('Login OK! ^_^','提示',MB_OK or MB_ICONINFORMATION);
end;
end;

procedure CallNetExtError;
var
ErrorCode: Cardinal;
ErrBuf,NameBuf: string;
ShowMsg: string;
begin
SetLength(ErrBuf,MAX_PATH);
SetLength(NameBuf,MAX_PATH);
if WNetGetLastError(ErrorCode,PChar(ErrBuf),MAX_PATH+1,PChar(NameBuf),MAX_PATH+1) = NO_ERROR then
begin
ShowMsg := 'Error Code:' + IntToStr(ErrorCode) + #13#10;
ShowMsg := ShowMsg + 'Error String:' + ErrBuf + #13#10;
ShowMsg := ShowMsg + 'Error Provider:' + NameBuf;
ShowMessage(ShowMsg);
end
else ShowMessage('Invalid Buffer Size! :-(');
end;