Как узнать, подключен ли компьютер к сети

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
;

Другое по теме:

• Состояние подключения к сети
• Как подключать сетевые диски
• Как подключить и отключить сетевые диски