Как узнать подключен ли сетевой кабель

[Aleksandr]

Как узнать подключен ли сетевой кабель?
Я использую вот такой код

if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
    ShowMessage('Подключение по локальной сети!')
  else
    ShowMessage('Сетевой кабель не подключен!');

, но он всегда выдает "Подключение по локальной сети"

[mss]

https://forums.embarcadero.com/messa...ssageID=110474

[Aleksandr]

Не открывается ссылка

[mss]

У меня расчудесно открывается.

[Aleksandr]

Открылся. Сейчас посмотрю.

Что-то я не разберусь.
1. я создаю модуль unit NetState;
2. вызываю модуль

NetAdapter1 := TNetAdapter.Create(Self);
NetAdapter1.WatchInterval := 500;
NetAdapter1.WatchChanges := true;
NetAdapter1.OnStateChange := NetAdapter1StateChange;
NetAdapter1.OnConnect := NetAdapter1Connect;
NetAdapter1.OnDisconnect := NetAdapter1Disconnect;

[mss]

И что ?............

[Aleksandr]

При компиляции выдает <<File not found IpExport.dcu>>
Прошу прощения я создаю модуль NetAdapter1

[mss]

Попробуй изменить ссылки в uses c IpExport на JwaIpExport

[Aleksandr]

Тоже самое только File not found JwaIpExport .dcu

[raxp]

...почему у меня работает? ...что я делаю не так? ...может стоит присмотреться к комментариям в коде?

////////////////////////////////////////////////////////////////////////////////
// Include Units (IP Helper units: ftp://delphi-jedi.org/api/IPHlpAPI.zip)
////////////////////////////////////////////////////////////////////////////////