Ping功能实现.txt 很多时候不检查局域网内的IP是否连通，直接通过IP访问，程序会卡住很久，有1分钟左右，这给用户的体验非常不好，现在通过检查是否连通，设置为1.5S后不连通则不进行后面的操作，程序效率大大提升，如下是检查局域网内的IP或者外网的IP是否连通的实现。 ? ? ? 后面的代码直接保存为Ping.Pas，即可直接使用，下面是使用方法 ：(Ping Ping.Pas destructor Tping.destroy; begin FreeLibrary(hIcmpD