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

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

©Drkb::03284

Взято из http://forum.sources.ru