Online oder offline?

[Mirilin]

Aus der EDH2000:

Zitat:

Offline oder Online?


Es kursieren viele Möglichkeiten im Netz, um festzustellen ob ein Rechner online oder offline ist. Meistens wird nur getestet, ob der Computer eine IP-Adress zugewiesen bekommen hat. Aber wenn auf dem Computer eine Netzwerkkarte installiert ist, klappt das ganze nicht.

Hier eine Lösung, die immer funktionieren sollte, wenn sich der Rechner übers DFÜ-Netzwerk eingeloggt hat:

Delphi-Quellcode:

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
begin
  If  InternetGetConnectedState(nil, 0) then
    Caption := 'Online'
  else
    Caption:='Offline';
end;