Para realizar la conexión:
1) En "uses" colocar "WinInet"
2) Para llamar al cuadro de diálogo de conexión: InternetAutoDial(INTENET_AUTODIAL_FORCE_ONLINE, 0)
3) Para cerrar la conexión:
InternetAutoDialHangup(0)
4) Para conocer los estados de conexiones:
InternetGetConnectedState(@Estado, 0) // Estado: Cardinal
Esta función puede dar False, o True
Llamando a 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
si deseas conocer más sobre como trabajar con conexiones puedes ver este sitio:
www.lawebdejm.com allí hay una sección sobre WinInet... en dicha sección se explica algo.