delphi 通过Ping命令检测网络是否正常

可以通过Ping远程服务器的Ip，或Url来检测网络是否正常，起到快速检测网络效果。

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      14429  2010-12-14 15:37  TestPing\Cap_ip.dcu

     文件      19068  2010-12-14 15:43  TestPing\Cap_ip.pas

     文件      19066  2010-12-14 15:30  TestPing\Cap_ip.~pas

     文件        434  2010-12-14 16:22  TestPing\TestPing.cfg

     文件       2014  2010-12-14 16:22  TestPing\TestPing.dof

     文件        242  2010-12-14 15:23  TestPing\TestPing.dpr

     文件     388608  2010-12-14 15:37  TestPing\TestPing.exe

     文件        876  2010-12-14 11:26  TestPing\TestPing.res

     文件        258  2010-12-14 13:41  TestPing\TestPing.~dpr

     文件       3760  2010-12-14 12:04  TestPing\Uping.dcu

     文件       3253  2010-12-14 12:04  TestPing\Uping.pas

     文件       3248  2010-12-14 12:01  TestPing\Uping.~pas

     文件       5105  2010-12-14 15:37  TestPing\U_Main.dcu

     文件        987  2010-12-14 15:36  TestPing\U_Main.dfm

     文件       1255  2010-12-14 16:17  TestPing\U_Main.pas

     文件        987  2010-12-14 15:36  TestPing\U_Main.~dfm

     文件       1255  2010-12-14 16:01  TestPing\U_Main.~pas

     文件       6357  2010-12-14 14:30  TestPing\U_SnatchThread.pas

     文件       6347  2010-12-14 14:23  TestPing\U_SnatchThread.~pas

     目录          0  2010-12-14 16:22  TestPing

----------- ---------  ---------- -----  ----

               477549                    20