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

[turboPASCAL]

Zitat von 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.

Wo hast du denn die Constante her (Unit)?

Nach suchen bin ich auf:

Delphi-Quellcode:

const
  INTERNET_CONNECTION_OFFLINE = $20;

Ist das richtig ?