Erkennen der Lan Verbindung (Netzwerkkabel rein/raus)

[Rudirabbit]

Hallo
Wenn das Lankabel rein/ausgesteckt wird (und eine Lan Verbingung aufgebaut wird),
müsste das WinOS doch eine WM_Message schicken

WM_devicechange ist es nicht ....(ist auch logisch - es wird im prinzip kein Gerät angesteckt)

Zur Zeit polle ich (Code in etwa von DP übernommen) :

Delphi-Quellcode:

function TForm1.isOnline: Boolean;
var dlvFlag : DWord;
begin
dlvFlag :=Internet_Connection_Lan;
result:= InternetGetConnectedState ( @dlvFlag, 0 );
end;

Viel schöner wäre wenn ich ein Event dafür hätte