Lanzar aplicacion al detectar conexion a internet

[roman]

Hablando de cosas que alguna vez hemos visto y no recordamos donde menciono que recuerdo haber leído en alguna parte que la única manera verdaderamente confiable para detectar si existe una conexión a Internet es haciendo un ping a una dirección que sepamos a ciencia cierta que está activa. Si no obtenemos respuesta es que no hay conexión.

// Saludos

[argami]

es verdad pero eso tiene un problema que tienes que estar seguro que a largo plazo esa direccion estara activa

[JOSEPE]

Para los que necesiten detectar Internet.

function IsConnected: Boolean;
var
 ConnectedState: Integer;
begin
 ConnectedState := INTERNET_CONNECTION_MODEM +   INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
 Result := InternetGetConnectedState(@ConnectedState, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
	  if IsConnected = False then Panel1.Caption :='You are not connected to internet'
	  else
	  panel1.Caption :='You are connected to internet';
   end;

[JoseQ]

k unidades hacen falta para ejecutar esa funcion ?

[roman]

Empezado por JoseQ

k unidades hacen falta para ejecutar esa funcion ?

¿Te refieres a InternetGetConnectedState? Pues me parece que está en la unidad WinInet?

// Saludos