首页> 软件教程> 用Delphi实现虚拟盘映射

用Delphi实现虚拟盘映射

来源：网络时间：2011-08-05 17:05:31

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

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

　　程序代码如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

　TfrmMain = class(TForm)

　btnConnect: TButton;

　btnDisconnect: TButton;

　edtLocal: TEdit;

　Label1: TLabel;

　Label2: TLabel;

　edtRemote: TEdit;

　procedure btnConnectClick(Sender: TObject);

　procedure btnDisconnectClick(Sender: TObject);

　private

　　{ Private declarations }

　public

　　{ Public declarations }

　end;

var

　frmMain: TfrmMain;

　implementation

　{$R *.dfm}

　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;

procedure TfrmMain.btnDisconnectClick(Sender: TObject);

var

　strLocalName : PChar;

begin

　strLocalName:=PAnsiChar(edtLocal.Text);

　WNetCancelConnection2(strLocalName,CONNECT_UPDATE_PROFILE,False);

end;

end.

　　保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。

　　在“本地虚拟盘”对应的文本框中输入一个有效的本地虚拟盘，在“网络共享目录”对应的文本框中输入一个有效的网络共享目录，如图3所示。

图2 程序运行的初始画面

图3 输入参数

单击“连接”按钮可以映射虚拟盘，单击“断开”按钮可以断开虚拟盘。

<上一篇：Delphi压缩流和解压流的应用下一篇：惊艳，美图秀秀让你变身画中人！ >

文章内容来源于网络，不代表本站立场，若侵犯到您的权益，可联系我们删除。（本站为非盈利性质网站）联系邮箱：rjfawu@163.com

相关攻略

1Delphi用拼音首字符序列实现检索功能 2Delphi实现网页采集 3Delphi 中串口通讯的实现 4Delphi下编程实现中文输入 5Delphi多层应用程序的实现 6ASP.NET 2.0 下URL映射的实现方法 7Delphi实现提取可执行文件内部所有图标 8用Delphi开发简单的WebMail程序 9映射软件_映射软件下载安卓_手柄映射软件 10手柄映射软件_手柄映射软件安卓_手柄映射软件app

近期热点

1word表格空了好大一片,问题诊断 2word表格中的回车键怎么去掉,理解问题 3─────这条横线怎么打上去啊,“破折号”的日常穿搭 4没有密钥怎样激活office,无密钥激活方法大公开 5维卡币美国中央银行获得批准 6怎么设置页眉页脚与上一节不同,开启个性化之旅 7word文字每一行都有一行空格,问题的出现 8页眉横线一直删除不了,页眉横线之谜团 9word方框怎么弄出来,开启你的创意之旅 10美国中央银行数字货币圆周率派币,【数字货币新贵：圆周率派币初露锋芒】

最新攻略

1NETT币是主流币吗？,探索NETT币：距离主流还有多远? 2MSQ币发行总量是多少？,揭秘神秘新秀：MSQ币的发行总量究竟有多少呢? 3NBU币发行总量是多少？,揭秘NBU币：发行总量的秘密与背后策略 4MPH币发行总量是多少？,揭秘MPH币：发行总量知多少? 5MSR币是主流币吗？,探究MSR币：主流币之列的角逐者还是潜力股？ 6MFG币是主流币吗？,探索神秘的加密世界：MFG币能否跻身主流之列? 7MIN币发行价是多少？,MIN币：从初始低价到市场热话 8NFA币发行总量是多少？,揭秘NFA币：发行总量知多少？ 9NAVI币是主流币吗？,NAVI币：独树一帜却尚未迈入主流之列 10MRS币是主流币吗？,探索MRS币：它是主流币吗？ 11MULTI币发行价是多少？,揭秘MULTI币发行价：亲民而引人注目 12NEOFI币是主流币吗？,NEOFI币：新星崛起，但它是否已跻身主流币行列呢？