Lanzar aplicacion al detectar conexion a internet

[argami]

Lamento si mi idea confunde a alguien, la verdad no lo he hecho con esa intencion, pero sin duda que roman tiene razon con lo que dice.

no especifique el echo de la necesidad de un timer o un Hilo por creer que quedaba sobre entendido que hacia falta, mas bien solo referi un api que puede servir para detectar cuando esta abierta una conexion.

Mis sinceras disculpas si esto ha hecho perder tiempo a alguien

[roman]

Empezado por argami

no especifique el echo de la necesidad de un timer o un Hilo por creer que quedaba sobre entendido que hacia falta

No te preocupes argami, mi insistencia va dirigida a Delphius quien me parece que aún no tiene claro esto que indicas.

// Saludos

[[Delphius]]

Roman si entiendo lo que dices... si o si tiene que haber "algo" activo para que lanze mi aplicación.
Me resultó (hasta el momento) más fácil usar un timer para que cada 1 segundo cheque si está conectado y si realmente lo está empieza a cronometrar. Si la conexión se interrumpe... se detiene.

[JOSEPE]

Alguan vez encontre una funcion windows llamada mediante una Callback para detectar si habia una conexion a INTERNET, la verdad que la perdi, UDs., al parecer sabe como hacerlo me pueden indicar cual es esa funcion o como lo hacen Uds.

Salu2

JOSEPE
Lima-Peru

[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;