Verificar se computador está em rede...
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
Curtidas 0
Respostas
Misael
13/07/2004
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;
GOSTEI 0