Delphi映射和断开网络驱动器源码实例.rar

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;