文件名称:
Delphi映射和断开网络驱动器源码实例.rar
开发工具:
文件大小: 10kb
下载次数: 0
上传时间: 2019-07-10
详细说明： Delphi映射和断开网络驱动器源码实例，之前的都是代码版，不是完整的源码，这次是可编译的源码包，下载后用Delphi7编译就运行了，界面效果如截图所示，部分代码如下： 将远程资源映射到此驱动器 lpRemoteName :=pchar(edit1.text); // 远程网络资源 lpProvider := ; // 必须赋值,如为空则使用lpRemoteName的值。 end; if WnetAddConnection2(NetSource, pchar(edit4.text), pchar(edit3.text), CONNECT_UPDATE_PROFILE)=NO_E RROR //用户名为Guest，口令为Password,下次登录时重新连接,此时在Windows资源管理器中可看到网络驱动器： then //映射成功 showmessage(edit1.text 成功映射成 edit2.text) else showmessage(映射失败！); end; procedure TForm1.Button2Click(Sender: TObject); begin if MessageDlg(确实要断开么?, mtConfirmation, [mbYes, mbNo], 0) = mrYes then //不管是否有文件打开，断开网络驱动器： if WNetCancelConnection2(pchar(edit2.text), CONNECT_UPDATE_PROFILE, True)=NO_ERROR then //映射断开成功 showmessage(edit1.text 映射断开！) else showmessage(断开映射失败); end;
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
相关搜索:
