Fórum (Revista ClubeDelphi Ed.90) Como Detectar Internet no PC #350356

Estou bem interessado em saber como fazer isso em uma das minhas aplicações, mais o código fornecido pelo Luciano Pimenta, não detecta se há internet no pc mais sim, se existe conectividade, por exemplo, se o mesmo estiver ligado a uma rede sem internet ele não funciona, sendo assim, a resposta não foi 100¬ adequada.. [b:39d70b17f5]alguém conhece um meio de detectar se existe conectividade do computador com a internet, mesmo o PC estando ligado numa rede local??[/b:39d70b17f5] código fornecido pelo Luciano: [quote:39d70b17f5]Declare [b:39d70b17f5]WinNet[/b:39d70b17f5] na uses

function VerificaInternet:Boolean;
var
Sinal:DWORD;
begin
  if InternetGetConnectedState(@Sinal,0) then
    Result := True else Result := False;
end;