Сетевой кабель не подключен.

[Aleksandr]

Как програмно отловить что сетевой кабель не подключен?
Пробовал

procedure TForm1.Button1Click(Sender: TObject);
begin
 if GetSystemMetrics(SM_NETWORK) and $01 = $01 then 
  ShowMessage('Computer is attached to a network!') 
   else 
  ShowMessage('Computer is not attached to a network!');
end;

но выводит одно и тоже.

[rpy3uH]

это можно узнать через SetupAPI