Como Hacer Conexion DialUp

[[Delphius]]

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.