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.