用Delphi实现虚拟盘映射

用Delphi实现虚拟盘映射2012-01-11本实例演示如何映射和断开网络虚拟盘。

向窗体上添加两个TLabel组件、两个TEdit组件和两个TButton组件，设计完成的主界面如图1所示。

图1 主界面

首先添加“连接”按钮的响应代码，在其中调用WNetAddConnection2函数，根据用户输入的本地虚拟盘和网络共享目录来映射虚拟盘，响应代码如下：

procedure TfrmMain.btnConnectClick（Sender: TObject）;
var
 NetShare :NETRESOURCE;
begin
 NetShare.dwType := RESOURCETYPE_DISK;
 NetShare.lpLocalName := PAnsiChar（edtLocal.Text）;
 NetShare.lpRemoteName := PAnsiChar（edtRemote.Text）;
 NetShare.lpProvider :=’’;
 WNetAddConnection2（NetShare, ’’, ’’, CONNECT_UPDATE_PROFILE）;
end;

然后添加“断开”按钮的响应代码，在其中调用WNetCancelConnection2函数断开用户输入的本地虚拟盘，响应代码如下：

procedure TfrmMain.btnDisconnectClick（Sender: TObject）;
 var
  strLocalName : PChar;
 begin
  strLocalName:=PAnsiChar（edtLocal.Text）;
  WNetCancelConnection2（strLocalName,CONNECT_UPDATE_PROFILE,False）;
end;