ich habs so geändert:
Delphi-Quellcode:
function TForm1.IsOnline: Boolean;
var dlvFlag : DWord;
begin
Result := FALSE;
dlvFlag := Internet_Connection_Modem or
Internet_Connection_Lan or Internet_Connection_Proxy;
if InternetGetConnectedState ( @dlvFlag, 0 ) = TRUE Then
Result := not ((dlvFlag and INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE);
end;
Ich vermute, dass die "81" ein Zahlendreher ist und "18" sein sollte. Aber ich denke meine Abfrage ist sprechender.