Internetverbindung prüfen?

[mlspider]

Hallo,

das prüfen ob eine Internetverbindung besteht, funktioniert plötzlich nicht mehr.

Delphi-Quellcode:

function IsConnectedToInternet: Boolean;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

Der Aufruf:

Delphi-Quellcode:

procedure TInstaller.Timer2Timer(Sender: TObject);
begin
 Timer2.Enabled:=False;
 if IsConnectedToInternet then
 ShowMessage('Internetverbindung steht')
 else
 ShowMessage('Keine Verbindung')
end;

WinInet ist in der Uses.

Egal ob verbunden oder nicht, es wird immer "Wahr" ausgegeben.

Ich kann keinen Fehler finden.