Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Automatically dialhangup the default Internet connection

Title: 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;