Обновлено: 01 декабря, 2018

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

(9 оценок, среднее: 5,00 из 5)

Загрузка...