Verificar se computador está em rede...
13/07/2004
0
Função ou procedimento para verificar se o computador está em rede.
Naum somente internet configurada...mas, sim em rede...
desde já...obrigado..
8)
Naum somente internet configurada...mas, sim em rede...
desde já...obrigado..
8)
Chacal81
Curtir tópico
+ 0
Responder
Posts
13/07/2004
Misael
procedure TForm1.Button1Click(Sender: TObject);
begin
if (GetSystemMetrics(SM_NETWORK) AND $01 = $01) then
ShowMessage(´<Computador em rede>´)
else
ShowMessage(´<Computador fora da rede>´);
end;
begin
if (GetSystemMetrics(SM_NETWORK) AND $01 = $01) then
ShowMessage(´<Computador em rede>´)
else
ShowMessage(´<Computador fora da rede>´);
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)