Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Как узнать, подключен ли компьютер к сети или нет. Есть простой способ, чтобы проверить это:


procedure TForm1.Button1Click(Sender: TObject) ;
begin
   if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
     ShowMessage('Компьютер подключен к сети!')
   else
     ShowMessage('Компьютер не подключен к сети!') ;
end;

 

Добавить комментарий


Защитный код
Обновить