Solucion al tema de saber si estoy o no conectado a internet

[MAXIUM]

Tambien hay que modificar la clave: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings y cambien el valor de NoNetAutodial a 0X00000000 (osea a 0)

Código Delphi [-]
uses registry;

var
 Registro : Tregistry;
begin
     Registro := TRegistry.Create;
     Registro.RootKey := HKEY_CURRENT_USER;
     if Registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then
       begin
       Registro.WriteInteger('EnableAutodial',1);
       Registro.WriteInteger('NoNetAutodial',0);
       Registro.CloseKey;
       Registro.Free;
       end;
end;

[jt.logosoft]

Hola! gracias por los aportes, a mí me funcionó con una variante: modifiqué el último procedimiento así

Código Delphi [-]
var
 Registro : TRegistry;
begin
     Registro := TRegistry.Create;
     Registro.RootKey := HKEY_CURRENT_USER;
     if Registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then
       begin
       Registro.WriteInteger('EnableAutodial',1);
       Registro.WriteInteger('NoNetAutodial',1);
       Registro.CloseKey;
       Registro.Free;
       end;

end;

Aclaro que estoy en una red local, mi conexión a Internet es por cable y compartida. Estoy detrás de un switch y un router.