Ich hätte es über PowerShell-Commands gelöst.
ChatGPT schlägt folgendes vor:
Code:
Get-NetAdapter -InterfaceAlias "Ethernet 3 - Internet" | Select-Object InterfaceAlias, MediaConnectionState
Erfolgreich getestet mit meinem Adapter.
Die Ausgabe kann man sich ja in Delphi zurückliefern lassen.