Delphi dicas

Verificar se o pc está em 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;

por : Aldisney Campelo Coelho