请问win98和win2000,winXp下如何用程序实现网络磁盘映射? 请问win98和win2000,winXp下如何用程序实现网络磁盘映射? 好象win98和winXP.win2000的用法是不一样的。 解决方案 » 免费领取超大流量手机卡,每月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; 怎么查找多级菜单项,再其后添加一个菜单项? delphi中listview单行颜色问题. 获得BMP图片信息的开头指针,如何获得图片的大小信息?? 还是打开窗口的问题? 我采用fastreport做人事程序报表,请大家帮忙,并在线加分. 大家来帮小弟,急呀。 ADO联服务器测试联接 sender的小问题,HELP! 关于"tab"的问题请教高手! 一个包含了扩展ASCII的字符串,如何能够保存到文件里面? 请问:如何根据QUERY的查询结果生成QReport报表。 file not found:'system.pas',请问各位大侠这是什么原因啊?
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;