Besteht eine Netzwerk - Verbindung

[Daniel B]

Hallo,

damit wird überprüft ob eine Verbindung zum Netzwerk besteht, ist das der Fall so gibt die Funktion ein True zurück, ansonsten ein False.

Delphi-Quellcode:

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

Grüsse, Daniel