用Delphi实现虚拟盘映射

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

过程TfrmMain.btnConnectClick(发送方:to object)；
var
net share:net resource；
begin
net share . dw type:= resource type _ DISK；
net share . LP local name:= pan sichar(EDT local。正文)；
net share . LP remote name:= pan sichar(EDT remote。正文)；
net share . LP provider:= ' '；
wnetaddconnection 2(net share，''，''，CONNECT _ UPDATE _ PROFILE)；
end；

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

过程TfrmMain.btnDisconnectClick(发送方:to object)；
var
strLocalName:PChar；
begin
strLocalName:= pan sichar(EDT local。正文)；
wnetcancelconnection 2(strLocalName，CONNECT_UPDATE_PROFILE，False)；
end；

程序代码如下:

unit Unit1

连接

使用

窗口、消息、系统、变量、类、图形、控件、表单，

对话框、标准控件。

类型

TfrmMain = class(t form)
BTN connect:TButton；
btnDisconnect:TButton；
EDT local:TEdit；
label 1:t label；
label 2:t label；
EDT remote:TEdit；
过程btnConnectClick(发送方:to object)；
procedure btnDisconnectClick(Sender:to object)；

private
{私有声明}
public
{公共声明}
end；

var
frm main:TfrmMain；
实现
{$R *。DFM }
procedure tfrmmain . btnconnectclick(Sender:to object)；

var
net share:net resource；
begin
net share . dw type:= resource type _ DISK；
net share . LP local name:= pan sichar(EDT local。正文)；
net share . LP remote name:= pan sichar(EDT remote。正文)；
net share . LP provider:= ' '；
wnetaddconnection 2(net share，''，''，CONNECT _ UPDATE _ PROFILE)；
end；

过程TfrmMain.btnDisconnectClick(发送方:to object)；

var
strLocalName:PChar；
begin
strLocalName:= pan sichar(EDT local。正文)；
wnetcancelconnection 2(strLocalName，CONNECT_UPDATE_PROFILE，False)；
end；

结束。

保存文件，然后按F9运行程序