Hola.
Tenés razón, no había evaluado esa posibilidad...
Otra forma (no muy elegante) es usando el componente TIdIcmpClient con uno o mas host conocidos.
Código Delphi
[-]
function TForm1.HayInternet: Boolean;
const
SITIOS: array[1..3] of string =('www.clubdelphi.com','www.google.com.ar','www.yahoo.com');
var
i: Integer;
begin
Result:= False;
i:= 0;
while (i < 3) and not Result do
begin
Inc(i);
Caption:= IntToStr(i);
IdIcmpClient1.Host:= SITIOS[i];
try
Result:= True;
IdIcmpClient1.Ping;
except
Result:= False;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if HayInternet then
ShowMessage('Conectado a internet')
else
ShowMessage('Desconectado de internet');
end;
Buscando encontre este [
código ]. (No lo probé)
Un saludo.