请问映射网络盘是怎样做的？？？？？ 如题 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 映射网络驱动器用此方法让你可以映射网络驱动器和断开映射网络驱动器，用本机来试通不过，如果你在网络上也通不过，请告知建立映射网络驱动器procedure TForm1.Button1Click(Sender: Tobject);var NetR :NETRESOURCE;ErrInfo : Longint;beginNetR.dwScope := RESOURCE_GLOBALNET;NetR.dwType := RESOURCETYPE_DISK;NetR.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;NetR.dwUsage := RESOURCEUSAGE_CONNECTABLE;NetR.lpLocalName := 'j:';NetR.lpRemoteName := '\\Lifang\c';ErrInfo := WNetAddConnection2(NetR, '', '', CONNECT_UPDATE_PROFILE);If ErrInfo = NO_ERROR Thenmessagebox(0,'Net connection successful!','',0)Elsemessagebox(0,'ERROR: ','',0);end;断开映射网络驱动器procedure TForm1.Button2Click(Sender: Tobject);var ErrInfo : Longint;strLocalName : pchar;beginstrLocalName:='j:';ErrInfo := WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, False);If ErrInfo = NO_ERROR Thenmessagebox(0,'Net disconnection successful!','',0)Elsemessagebox(0,'ERROR','',0);end; WebBrowser控件上能放其它透明控件吗？ cxgrid 焦点单元格的4维属性rect 请教，查询数据到dbgrid显示，如何将值1显示为男，2显示女？ mysql多表更新的问题 SQL 2005 视图问题？（顶者有分） 有谁见过这个问题吗？我碰到过两次了 有了MM，于是懂了Mum d7 滚动字幕字幕带连接 在线急 Delphi高手帮忙 给分 主菜单窗体调用其他窗体生成工程文件的问题！ Edit 控件如何让文本据右 关于unit单元问题———在线等待 这条SQL语句怎么写？
用此方法让你可以映射网络驱动器和断开映射网络驱动器，用本机来试通不过，如果你在网络上也通不过，请告知建立映射网络驱动器
procedure TForm1.Button1Click(Sender: Tobject);var NetR :NETRESOURCE;ErrInfo : Longint;beginNetR.dwScope := RESOURCE_GLOBALNET;NetR.dwType := RESOURCETYPE_DISK;NetR.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;NetR.dwUsage := RESOURCEUSAGE_CONNECTABLE;NetR.lpLocalName := 'j:';NetR.lpRemoteName := '\\Lifang\c';ErrInfo := WNetAddConnection2(NetR, '', '', CONNECT_UPDATE_PROFILE);If ErrInfo = NO_ERROR Thenmessagebox(0,'Net connection successful!','',0)Elsemessagebox(0,'ERROR: ','',0);end;断开映射网络驱动器
procedure TForm1.Button2Click(Sender: Tobject);var ErrInfo : Longint;strLocalName : pchar;beginstrLocalName:='j:';ErrInfo := WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, False);If ErrInfo = NO_ERROR Thenmessagebox(0,'Net disconnection successful!','',0)Elsemessagebox(0,'ERROR','',0);end;