Проверка наличия подключения к локальной сети

[nixstill]

Доброе время суток!
Подскажите пожалуйста, как сделать проверку на наличие подключения по локальной сети.
Есть множество вариантов с проверками подключения к сети интернет, но мне нужна именно локальная сеть

Есть такая проверка
GetSystemMetrics(SM_NETWORK) and 1 > 0;
но она показывает только в случае отключенного кабеля.
Если вырубить интерфейс принудительно, а кабель оставить, то она все равно возвращает наличия коннекта.

[Stilet]

Можно попробовать получит список компов в сетевом окружении, или попинговать доменный сервер если он есть.
Пройдись по http://delphiworld.narod.ru/_all_articles_.html в поисках кода с WNetEnumResource в разделе Сеть - [38]

[nixstill]

Что вы думаете по поводу такого решения? Может что добавите?

PHP код:

type
 PMibIfRow = ^TMibIfRow;
 TMibIfRow = packed record
    wszName             : array[0..255] of WideChar;
    dwIndex             : DWORD;
    dwType              : DWORD;
    dwMtu               : DWORD;
    dwSpeed             : DWORD;
    dwPhysAddrLen       : DWORD;
    bPhysAddr           : array[1..8] of Byte;
    dwAdminStatus       : DWORD;
    dwOperStatus        : DWORD;
    dwLastChange        : DWORD;
 end;
 
 pMibIfArray = ^TMIBIFARRAY;
 TMibIfArray = array [0..512] of TMibIfRow;
 
 PMibIfTable = ^TMibIfTable;
 TMibIfTable = packed record
   dwNumEntries : DWORD;
   Table        : TMibIfArray;
 end;
 
  function GetIfTable(pIfTable:PMibIfTable; pdwSize: PULONG; bOrder: boolean ): DWORD; stdCall; external 'IPHLPAPI.DLL';
 
function RightConnection(dwType:DWORD):Boolean;
  const
    MIB_IF_TYPE_OTHER       = 1;
    MIB_IF_TYPE_ETHERNET    = 6;
    MIB_IF_TYPE_TOKENRING   = 9;
    MIB_IF_TYPE_FDDI        = 15;
    MIB_IF_TYPE_PPP         = 23;
    MIB_IF_TYPE_IEEE_802_11 = 71;
    MIB_IF_TYPE_SLIP        = 28;
begin
  case dwtype of
    MIB_IF_TYPE_OTHER, MIB_IF_TYPE_ETHERNET,
    MIB_IF_TYPE_TOKENRING, MIB_IF_TYPE_FDDI,
    MIB_IF_TYPE_PPP, MIB_IF_TYPE_SLIP: Result := True;
  else
    Result := False;
  end;
end;
 
function LanIsConnected:Boolean;
  var
    _MibIfTable: PMibIfTable;
    _P: Pointer;
     i, _NumEntries: integer;
    _buflen: DWORD;
    _error: DWORD;
 
  const
    MIB_IF_OPER_STATUS_NON_OPERATIONAL = 0;
    MIB_IF_OPER_STATUS_UNREACHABLE     = 1;
    MIB_IF_OPER_STATUS_DISCONNECTED    = 2;
    MIB_IF_OPER_STATUS_CONNECTING      = 3;
    MIB_IF_OPER_STATUS_CONNECTED       = 4;
    MIB_IF_OPER_STATUS_OPERATIONAL     = 5;
 
begin
  Result := False;
 
  _buflen := sizeof(_MibIfTable^);
  New(_MibIfTable);
  _P := _MibIfTable;
  _error := GetIfTable(_MibIfTable, @_buflen, false);
 
  if _error <> NO_ERROR then
    begin
       ShowMessage('Error!');
       Exit;
    end;
 
  _NumEntries := TMibIfTable(_P^).dwNumEntries;
  if _NumEntries > 0 then
     for i:=0 to _NumEntries-1 do
      begin
        if (RightConnection(TMibIfTable(_P^).table[i].dwtype)) and
           (TMibIfTable(_P^).table[i].dwAdminStatus > 0 )
        then
            case TMibIfTable(_P^).table[i].dwOperStatus of
              MIB_IF_OPER_STATUS_CONNECTED,
              MIB_IF_OPER_STATUS_OPERATIONAL: Result := True;
            end;
      end;
  dispose(_MibIfTable);
 
end;