用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运行程序
0条评论