映射网络驱动器

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;