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

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

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com