如何知道局域网中一台机器是关机的？用代码如何实现！？

Question

写一下代码ＯＫ？！！！万分感谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdIcmpClient1.Host:=Edit1.Text;  //远程电脑的ip地址
  IdIcmpClient1.Ping;
end;procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  if AReplyStatus.BytesReceived<>0 then showmessage('远程主机开启') else
    showmessage('远程主机关闭');
end;

Answer 2

ShellExecute(0,'ping XXX.XXX.XXX.XXX','','',SW_Hide);

Answer 3

to:ilikeff8(迷茫)
用ShellExecute如何得到结果？

Answer 4

chenxinyu(辛雨) 
 
 网络不通 怎么办