Delphi - Verificare se si è connessi o no

come si fa per accertarsi se è attiva una connessione ad internet o meno?

La seguente funzione restituisce true se è attiva una connessione a Internet:

uses WinInet;

function ConnessioneInternetAttiva: Boolean;
const
    INTERNET_CONNECTION_MODEM = 1; // Viene utilizzato un modem per connettersi a Internet
    INTERNET_CONNECTION_LAN = 2; // Viene usata una Lan locale per connettersi a Internet
    INTERNET_CONNECTION_PROXY = 4; // Viene utilizzato un proxy server per connettersi a Internet
    INTERNET_CONNECTION_MODEM_BUSY = 8; // Il modem e' in uso per una connessione non-Internet
var
    dwConnectionTypes : DWORD;
begin
    dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
    Result := InternetGetConnectedState(@dwConnectionTypes,0);
end;

FONTE=softzone.it/tutorials/…

Grandioso!!!!!!
grazie mille!