Internet connection ja/nein ?

[ghost007]

Hallo,
ich verwende folgenden code um festzustellen ob eine internetverbindung besteht:

Delphi-Quellcode:

function IsInternetConnected: Boolean;
begin 
  if InternetGetConnectedState(nil, 0) then
  begin
    Result := True;
  end 
  else
  begin 
    Result := False; 
  end;
end;

Dieser funktioniert aber leider nur, wenn man mit dem PC direkt ins internet geht.
Sobald man einen router hat, der aber keine verbindung zum internet, liefert diese funktion trotzdem "true".
Wie kann ich nun trotz router feststellen ob eine verbindung besteht?

MfG - Ghost007