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

[138075]

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

好象win98和winXP.win2000的用法是不一样的。

[138075]

没有人知道吗？

[Rex_love_Burger]

procedure TForm1.Button1Click(Sender: Tobject);

var NetR :NETRESOURCE;ErrInfo : Longint;

begin

NetR.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 Then

messagebox(0,'Net connection successful!','',0)

Else

messagebox(0,'ERROR: ','',0);

end;

断开映射网络驱动器
procedure TForm1.Button2Click(Sender: Tobject);

var ErrInfo : Longint;

strLocalName : pchar;

begin

strLocalName:='j:';

ErrInfo := WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, False);

If ErrInfo = NO_ERROR Then

messagebox(0,'Net disconnection successful!','',0)

Else

messagebox(0,'ERROR','',0);

end;

[yueshujiang]

www.delphi.com