Is computer attached to a network?

~~~~~~~~~~~~~~~~~~~~~~~~~
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;
~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» How to find the size of a folder?
« How to change the background color on different lines of text in a TListBox

• 1
• 2
• 3
• 4
• 5