Verificar se a maquina esta na rede.

Código para ser jogado em um botão para verificar se o computador está em Rede ou não.

- Para Verificar se o PC está em Rede
procedure TForm1.Button1Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
ShowMessage('O computador está em rede!')
else
ShowMessage('O computador não está em rede!');
end;