[Tool, Fun] - "Wer ist Online" - Ticker

[Jasocul]

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.