Problema con el programa para saber si estoy conectado.

[Kamikaze]

Mi problema es que los dos programas que me paso quetzal (links con el codigo fuente) me funcionan en todos los ordenadores menos en los que estan conectados en Lan (con un servidor) el primero siempre me pone que estoy conectado y el segundo directamente se me tranca al ejecutarlo....

¿Alguien tiene otros codigos para saber si uno esta conectado a internet (sin intervencion del ususrio por medio claro)?

Muchas gracias, dejo aqui el link (http://www.clubdelphi.com/foros/showthread.php?t=16059)del anterios hilo.

[unreal4u]

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=PowerSock1.LocalIP;
if PowerSock1.LocalIP <> '127.0.0.1' then
label2.caption:='Conectado'
else
label2.caption:='Desconectado';
end;


Seguro que este código no funciona? Me parece un poco raro que un PC en LAN tenga ese IP... En todo caso, voy a averiguar mejor; porque ahora no tengo a mi disposición el delphi. El código fuente proviene de la página:
http://www.q3.nu/trucomania/truco.cgi?448&esp (es el último tip)

[Kamikaze]

Ese no lo he provado, por que no me reconoce PowerSock1
(el chico que puso el truco manejaba el delphi 5, con la uses PowerSock, que no la tengo en delphi 7 :( )

¿Con que uses la podria sustituir para que el codigo me fuera valido?

Muchas gracias!!! ;)

[Sotrono]

En este hilo hay un codigo que te puede servir:
http://www.clubdelphi.com/foros/showthread.php?p=48867#post48867

No lo probe en una LAN, pero supongo que funciona igual...