【文件属性】：
文件名称：Delphi映射和断开网络驱动器源码实例.rar
文件大小：10KB
文件格式：RAR
更新时间：2022-07-30 04:31:44
Delphi源码-网络相关
Delphi映射和断开网络驱动器源码实例，之前的都是代码版，不是完整的源码，这次是可编译的源码包，下载后用Delphi7编译就运行了，界面效果如截图所示，部分代码如下：
将远程资源映射到此驱动器
lpRemoteName :=pchar(edit1.text);
// 远程网络资源
lpProvider := '';
// 必须赋值,如为空则使用lpRemoteName的值。
end;
if WnetAddConnection2(NetSource, pchar(edit4.text), pchar(edit3.text), CONNECT_UPDATE_PROFILE)=NO_ERROR
//用户名为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;
【文件预览】：
codesc.net
----实现网络驱动器的映射和断开()
--------Project1.res(876B)
--------1.bmp(306KB)
--------Unit1.dfm(2KB)
--------Unit1.pas(2KB)
--------2.bmp(306KB)
--------Project1.dpr(188B)