1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function ConnectWWW : Boolean; 
var
  dwConnectionTypes: DWORD; 
begin   
  result := true;   
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN 
    + INTERNET_CONNECTION_PROXY;    
  // if not InternetGetConnectedState(@dwConnectionTypes, 0) then     
  // not connected      
  if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or       
    INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) 
  then     
    begin       
      // error       
      result := false;     
    end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Procedure DisConnectWWW; 
var   
  dwConnectionTypes: DWORD; 
begin    
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN 
    + NTERNET_CONNECTION_PROXY;    
  if InternetGetConnectedState(@dwConnectionTypes, 0) then     
  // connected     
  InternetAutodialHangup(0); 
end;