如何在程序里建立一个映射驱动器？

[lfh]

[shine21]

procedure TForm1.Button1Click(Sender : TObject);
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := 'X:'; // 将远程资源映射到此驱动器
lpRemoteName := '\\hqServer\sys'; // 远程网络资源
lpProvider := ''; // 必须赋值,如为空则使用lpRemoteName的值。
end;

WnetAddConnection2(NetSource, 'Password', 'Guest',CONNECT_UPDATE_PROFILE); //用户名为Guest，口令为Password


//下次登录时重新连接
//此时在Windows资源管理器中可看到网络驱动器X：
if MessageDlg('Are you sure to disconnect Drive ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
//不管是否有文件打开，断开网络驱动器X：
WNetCancelConnection2( 'X:', CONNECT_UPDATE_PROFILE, True);
end;