Feststellen, ob Netzwerkkabel gezogen wurde?

[iaby]

und den code noch etwas vereinfacht:

Delphi-Quellcode:

function IsNetworkConnected: Boolean;
begin
  Result := (GetSystemMetrics(SM_NETWORK) and $01) = $01;
end;

gruss,
iaby