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

Delphi , Интернет и Сети , Сеть

Воспользуемся функцией GetSystemMetrics(), переслав ей флаг SM_NETWORK:

procedure TForm1.Button2Click(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 и FreePascal.

Комментарии и вопросы

:: Главная :: Сеть ::