Saber se maquina esta conectada
Como faço para saber se determinada maquina(o IP da maquina eu tenho)esta conectada?
Kroki
Curtidas 0
Respostas
Ccchizolini
14/02/2004
tente esta function
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;
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;
GOSTEI 0
Kroki
14/02/2004
Nao deu certo...
GOSTEI 0
Fabio.hc
14/02/2004
Tente assim:
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=30176&start=0&postdays=0&postorder=asc&highlight=[/url]
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=30176&start=0&postdays=0&postorder=asc&highlight=[/url]
GOSTEI 0
Kroki
14/02/2004
ObrigaDO PESSOAL,mas descobro qual era o problema.
O problema e descpbriri se a porta esta aberta e usei uma Unit HostTest que peguei na net que faz isso em 200mil.
O problema e descpbriri se a porta esta aberta e usei uma Unit HostTest que peguei na net que faz isso em 200mil.
GOSTEI 0