Feststellen, ob Netzwerkkabel gezogen wurde?

[Tubos]

Zitat:

Zitat:

... Da es aber immer Scherzkekse gibt, die die Kabel rausziehen, war meine Überlegung, ein Delphi-Programm zu programmieren, das den Computer ausschaltet...

Was habt ihr denn da für einen Laden? Da diese und ähnliche Fragen sich in letzter Zeit häufen, glaube ich, daß es besser ist nicht mehr zu antworten. Das sieht nicht gerade nach einer sinnvollen Sache aus, eher nach Unfug.

Das glaube ich nicht.
Genau dasselbe Problem hatte ich in meinem Heimnetz auch (dabei handelt es sich um meine eigenen Computer).
Ich habe es aber damals nicht lösen können.
Die Sache mit dem Ping war auch nicht möglich da in einem Netz mit 2 PCs öfters auch nur einer eingeschaltet ist.

In der Code-Lib hat Daniel B mal einen Code mit GetSystemMetrics gepostet, mit dem man feststellen kann ob irgendeine Netzwerkverbindung hergestellt ist.
Möglicherweise liefert die Funktion dann false zurück, wenn das Netzwerkkabel gezogen wurde.
Das sieht so aus:

Delphi-Quellcode:

function IsNetworkConnected: Boolean; 
begin 
  if GetSystemMetrics(SM_NETWORK) and $01 = $01 then 
  begin 
    Result := True; 
  end 
  else 
  begin 
    Result := False; 
  end; 
end;