delphi下用程序实现网络磁盘映

                                         

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';

NetR.lpProvider:='';

 

//红色字体部分为系统用户名和密码

ErrInfo := WNetAddConnection2(NetR, YOURPASSWORD, YOURUSER, 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;