Delphi实现ICMP监控的代码

远程监控，是我们管理设置与网络的有效措施，这一方法也引入到了越来越多的领域中。那么这里我们就来介绍一下Delphi中用ICMP探测远程主机状态的具体方法。网络通讯中经常需要确定远程主机是否存活，以决定下一部进行的操作。可以直接使用ICMP协议来实现，但是要考虑许多协议细节，实现起来比较麻烦。Windows 自带的ICMP库里有现成的函数可以使用，只要在使用前填充相应的数据结构就可以了。以下是要使用的数据结构。这些结构MSDN里有C形式的声明，这里给出的是Delphi的形式。