automatically dial/hangup the default Internet connection?

uses

 WinInet;

// Causes the modem to automatically dial the default Internet connection.

procedure TForm1.Button1Click(Sender: TObject);

var

 dwConnectionTypes: DWORD;

begin

 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

   end;

end;

// hangup the default Internet connection.

procedure TForm1.Button2Click(Sender: TObject);

var

 dwConnectionTypes: DWORD;

begin

 dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +

   INTERNET_CONNECTION_PROXY;

 if InternetGetConnectedState(@dwConnectionTypes, 0) then

   // connected

   InternetAutodialHangup(0);

end;