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