用Delphi实现虚拟盘映射-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝26
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:113回复:0

用Delphi实现虚拟盘映射

楼主#
更多 发布于:2016-06-11 14:07



用Delphi完成虚拟盘映射,Delphi教程,Delphi事例,Delphi实例

本实例演示怎样映射和断开网络
虚拟盘 。
向窗体上添加两个TLabel组件、两个TEdit组件和两个TButton组件,规划
完成的主界面如图1所示 。
Windows7下IE 8运用窍门旅拍小绝招 教你拍出7种不一样感受的水景
怎样加速win7开机速度root是什么意思 root权限获取
图1 主界面
以不变应万变 风光拍摄拍照窍门集锦查找引擎优化成功必先解决的三个大忌
14个绝妙拍摄关键 全方位揭秘拍鸟窍门5个拍摄小窍门 教你拍好逆光新鲜少女
首要添加“联接”按钮的呼应代码,在其间调用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 输入参数
单击“联接”按钮
能够映射
虚拟盘,单击“断开”按钮
能够断开
虚拟盘 。
本实例演示怎样映射和断开网络
虚拟盘 。
向窗体上添加两个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 输入参数
单击“联接”按钮
能够映射
虚拟盘,单击“断开”按钮
能够断开
虚拟盘 。






[font=Tahoma  ][font=Tahoma  ][font=Tahoma  ]

优质IT资源分享社区为你提供此文。
本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。
Delphi教程视频
优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客