Fórum Verificar conexão com a internet #333740

function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: Integer;
begin
try
  dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then
    Result := true
  else
    Result := false;
except
  Result := false;
end;
end;

// Declaração da Função
function IsConnectedToInternet: Boolean;

// Declaração das Constantes
const

 INTERNET_CONNECTION_MODEM=1;
 INTERNET_CONNECTION_LAN=2;
 INTERNET_CONNECTION_PROXY=4;
 INTERNET_CONNECTION_MODEM_BUSY=8;

// Declaração da DLL
function InternetGetConnectedState(lpdwFlags: LPDWORD;
dwReserved: DWORD): BOOL; stdcall; external ´WININET.DLL´;