知识大全 用Delphi实现虚拟盘映射

Posted 知

篇首语：人的大脑和肢体一样，多用则灵，不用则废-茅以升本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 用Delphi实现虚拟盘映射相关的知识，希望对你有一定的参考价值。

用Delphi实现虚拟盘映射  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

本实例演示如何映射和断开网络虚拟盘 　　　　向窗体上添加两个TLabel组件 两个TEdit组件和两个TButton组件 设计完成的主界面如图 所示 　　 >　　 >　　　　首先添加 连接 按钮的响应代码 在其中调用WNetAddConnection 函数 根据用户输入的本地虚拟盘和网络共享目录来映射虚拟盘 响应代码如下 　　　　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 := ;　　WNetAddConnection (NetShare CONNECT_UPDATE_PROFILE);　　end;　　　　然后添加 断开 按钮的响应代码 在其中调用WNetCancelConnection 函数断开用户输入的本地虚拟盘 响应代码如下 　　　　procedure TfrmMain btnDisconnectClick(Sender: TObject);　　var　　strLocalName : PChar;　　begin　　strLocalName:=PAnsiChar(edtLocal Text);　　WNetCancelConnection (strLocalName CONNECT_UPDATE_PROFILE False);　　end;　　　　程序代码如下 　　　　unit Unit ;　　　　interface　　　　uses　　　　Windows Messages SysUtils Variants Classes Graphics Controls Forms 　　　　Dialogs StdCtrls;　　　　type　　　　TfrmMain = class(TForm)　　btnConnect: TButton;　　btnDisconnect: TButton;　　edtLocal: TEdit;　　Label : TLabel;　　Label : 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 := ;　　WNetAddConnection (NetShare CONNECT_UPDATE_PROFILE);　　end;　　　　procedure TfrmMain btnDisconnectClick(Sender: TObject);　　　　var　　strLocalName : PChar;　　begin　　strLocalName:=PAnsiChar(edtLocal Text);　　WNetCancelConnection (strLocalName CONNECT_UPDATE_PROFILE False);　　end;　　　　end 　　　　保存文件 然后按F 键运行程序 程序运行的初始画面如图 所示 　　　　在 本地虚拟盘 对应的文本框中输入一个有效的本地虚拟盘 在 网络共享目录 对应的文本框中输入一个有效的网络共享目录 如图 所示 　　 >　　 >　　 >　　 >　　　　单击 连接 按钮可以映射虚拟盘 单击 断开 按钮可以断开虚拟盘 cha138/Article/program/Delphi/201311/24685

相关参考

知识大全 用DELPHI写注册表实现建立IIS虚拟目录

用DELPHI写注册表实现建立IIS虚拟目录  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　最近

知识大全 用Delphi实现对光驱盘盒的开关控制

用Delphi实现对光驱盘盒的开关控制  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ &

知识大全 Delphi中用Adsi创建IIS虚拟目录

Delphi中用Adsi创建IIS虚拟目录  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　先引入类

知识大全 java虚拟机管理大内存

 众所周知jvm的内存是受限的一为机器的体系架构二为操作系统本身xxSPARC的内存映射是不同而各操作系统的内存管理机制也有区别以下是来自;Heap设定与垃圾回收JavaHeap分为个区Yo

知识大全 虚拟机器从一台电脑拷到另一台电脑后，无法启动，显示“指定的档案不是虚拟磁碟”，求大神指教，线上急等。

虚拟机器从一台电脑拷到另一台电脑后，无法启动，显示“指定的档案不是虚拟磁碟”，求大神指教，线上急等。插上U盘，将虚拟机器整个档案复制到U盘，然后考到自己的电脑上。开启vm虚拟机器。点选【开启一个虚拟机

知识大全 为什么在百度网盘保存的视频不能直接观看

为什么在百度网盘保存的视频不能直接观看因为属于是映射性的存储，网盘不是硬盘呢为什么在百度网盘中看视频很卡？视频在线播放视频是实时转码的，需要良好的网络支持，如果网络连接不畅，就会导致在百度网盘中看视频

知识大全 用一个虚拟机多拨 主机和这个虚拟机都不停拨号换ip 请问怎样可让主机与虚拟的ip不会有重复

用一个虚拟机多拨主机和这个虚拟机都不停拨号换ip请问怎样可让主机与虚拟的ip不会有重复？不可能，虚拟机用的网络和主机是一样的，所以公网IP是相同的，只是局域网IP不同而已。可以在虚拟机上换IP吗虚拟机

知识大全 使用虚拟主机建站，为什么很多人喜欢用独立IP

使用虚拟主机建站，为什么很多人喜欢用独立IP  以下文字资料是由(本站网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！使用虚拟主

知识大全 百度兑换专区，财富值兑换的虚拟物品，有什么用呢

请问：百度兑换专区，财富值兑换的虚拟物品，有什么用呢？兑换的有些是拿来好看的有些是实际有用的比如说弹弹堂的大礼包之类的游戏用的还有就是实物的基本上没什么作用这个不会加经验的都要扣财富值的啦还给你经验百

知识大全 用java监视系统进程的两个解决方案

　　用第一个java虚拟机启动另一个虚拟机并用第一个虚拟机的java程序去测试另一个虚拟机上java程序运行时的内存CPU资源占用情况　　解决问题的限制和条件　　》两个虚拟机运行在同台Windows_