请问win98和win2000,winXp下如何用程序实现网络磁盘映射？

Question

  请问win98和win2000,winXp下如何用程序实现网络磁盘映射？
  
  好象win98和winXP.win2000的用法是不一样的。

Answer 1

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;