Verificar la Conexión a internet

[ecfisa]

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;

//Llamada:
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.