如何映射肉鸡磁盘(Delphi黑客编程) - 华夏黑客同盟

| 网站首页 | 资讯 | Hack | 漏洞 | 网管 | 编程 | 培训 | 品黑页 | 软件 | 论坛 | 动画 | 视频 | 经典 | 教学站 | 黑客点睛 |

服务导航

我要发布

主力频道

精华收集

光盘刻录

您现在的位置：华夏黑客同盟 >> 编程 >> Delphi >> 正文

用户登录

新用户注册

如何映射肉鸡磁盘(Delphi黑客编程)

热 ★★★

【字体：小大】

如何映射肉鸡磁盘(Delphi黑客编程)

作者：不详文章来源：华盟收集点击数：更新时间：2007-5-15

本实例演示如何映射和断开网络虚拟盘。
向窗体上添加两个TLabel组件、两个TEdit组件和两个TButton组件，设计完成的主界面
首先添加“连接”按钮的响应代码，在其中调用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;

[1] [2] 下一页

责任编辑：朱倩　　联系方式　Email：朱倩

电话：51228163

上一篇编程： Delphi多线程程序示例（Delphi编程）

下一篇编程：列举正在运行的IE(Delphi编程)

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

（只显示最新5条。评论内容只代表网友观点，与本站立场无关！）

姓名：	* 游客填写　·注册用户
主页：
评分：	1分 2分 3分 4分 5分
评论内容：
验证码： *

请遵守《互联网电子公告服务管理规定》及中华人民共和国其他各项有关法律法规。严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论。用户需对自己在使用本站服务过程中的行为承担法律责任（直接或间接导致的）。本站管理员有权保留或删除评论内容。评论内容只代表网友个人观点，与本网站立场无关。

最新hack更新

最新推荐资讯

最新会员软件

最新推荐视频

最新推荐动画

mailto:webmaster@77169.net
咨询QQ号:836982 / 59280880
联系站长 QQ38588913