用Delphi实现虚拟盘映射

本实例演示如何映射和断开网络虚拟盘。

向窗体上添加两个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;