Existe conexión a Internet?

[[Delphius]]

Para que funcione correctamente lo de lepe debes incluir en uses la unidad WinInet.


InternetGetConnectedState(@Estado, 0) // Estado: Cardinal
Esta función puede dar False, o True

Pero si se realiza la operación: Trunc(Log2(Estado)) se puede saber el estado:
// para que funcione Log2 hay que agregar en uses "Math".

-- 0 -- INTERNET_CONNECTION_MODEM => Hay conexión mediante módem
-- 1 -- INTERNET_CONNECTION_LAN => Hay una conexión mediante red local
-- 2 -- INTERNET_CONNECTION_PROXY => Hay una conexión a través de proxy
-- 3 -- INTERNET_CONNECTION_MODEM_BUSY => El módem está ocupado
-- 4 -- INTERNET_CONNECTION_OFFLINE => No hay conexión activa