Как определить подключен ли компьютер к сети в Delphi?

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

Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (9 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий