Внешний вид сайта:

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

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

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

—

03.09.2016

coder

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

Комментарии