求助：程序中如何实现访问网上邻居

Question

若有一网上邻居：如192.168.0.123，有一用户：user1 用户密码：123
如何在程序中实现访问这一网上邻居,能给段程序最好，谢谢

Answer 1

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

Answer 2

多谢爱的眼睛,可以了,还有个问题是程序退出时如何关闭连接呢
WNetCancelConnection2A(
     IN LPCSTR lpName,
     IN DWORD    dwFlags,
     IN BOOL     fForce
    );
可以么,里面的参数是什么意思?