映射网络驱动器

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