如何映射肉鸡磁盘(Delphi黑客编程)

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

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

图6-17  主界面

首先添加“连接”按钮的响应代码，在其中调用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;

[1] [2] 下一页