如何在Delphi中摸仿Dos中的Ping命令，然后返回最短时间？ (100分)

如何在Delphi中摸仿Dos中的Ping命令，然后返回最短时间？
例如金山毒霸中的升级程序中的自动检测服务器功能。
高手帮忙

两种办法：
一、调用ping.exe根据返回自己解析文本并计算之。
二、实现ping
2.1 用原始socket做，在2000下可以直接做，不过98不支持原始socket，所以必须是用外部库，如winpcap即可，具体内容参考winpcap库
2.2 利用icmp.dll库，这个库是微软专门用来实现icmp的，你可以直接调用里面的函数来实现ping，简单快捷，不过不记得win98下是否也支持，如不行98下最好的解决方案还是winpcap。

谢谢大虾