Siempre he encontrado errores al momento de detectar internet, probare la última indicación ya a mi parecer esto me a dado buenos resultados salvo por el detalle de que hay que crear una conección
http://www.clubdelphi.com/foros/showthread.php?t=11089
Esta función solo detecta si hay un cable de red conectado, NADA MÁS.
Cita:
function OnInternet: Boolean;
var
flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
end;
|