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