Funktion: IsNetworkConnected ??

[SirThornberry]

in der Unit "wininet" gibt es die Funktion "InternetGetConnectedState". Die gibt dir den Status der Verbindung zurück.

Delphi-Quellcode:

function ConnectedToLan: Boolean;
var LWord: DWord;
begin
  LWord := INTERNET_CONNECTION_LAN;
  result := InternetGetConnectedState(@LWord, 0);
end;

genauere Hilfe zu der funktion gibts im msdn InternetGetConnectedState