Как определить подключен ли компьютер к сети в 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; 

Рейтинг автора
Автор статьи
Юрий
Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.
Написано статей
439
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (9 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий