Пятница, 17.05.2024, 15:21 | Приветствую Вас Гость

Жми-форум обо всём

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: RoMkA29

Форум » Кодинг » Delphi » Как узнать, подключён ли компьютер к сети (Как узнать, подключён ли компьютер к сети)

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

RoMkA29

Дата: Воскресенье, 19.05.2013, 23:20 | Сообщение # 1

Генералиссимус

Группа: Администраторы

Сообщений: 264

Репутация: 3

Статус: Offline

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

Код

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;