共享问题(100分)

怎样实现自动的映射已知道的远程共享目录为本机磁盘，已经知道了远程机的ip、
共享目录、user和psw

我无能为力。。。。

use net //Ipaddress/dir

局域网内可以用下面的函数：
function AddConnection(const RemoteName, LocalName, UserName, Password: string): DWORD;
var
NetResource: TNetResource;
begin
FillChar(NetResource, SizeOf(NetResource), 0);
with NetResource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := PChar(LocalName);
lpRemoteName := PChar(RemoteName);
end;
Result := WNetAddConnection2(NetResource, PChar(Password), PChar(UserName), 0);
end;

这样调用： AddConnection('//server1/fsr60','M:',MyName, MyPassWord);
返回值请看 SDK 中对 WNetAddConnection2 的说明。

怎么短开呢？？？

断开用
function WNetCancelConnection(lpName: PChar; fForce: BOOL): DWORD; stdcall;

前面的参数不用我说了吧，后面是指是否允许在有执行任务时断开

LISTEN

多人接受答案了。