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

[{"title":"（ 19 个子文件 195KB ） delphi 通过Ping命令检测网络是否正常","children":[{"title":"TestPing","children":[{"title":"Uping.pas <span style='color:#111;'> 3.18KB </span>","children":null,"spread":false},{"title":"U_SnatchThread.~pas <span style='color:#111;'> 6.20KB </span>","children":null,"spread":false},{"title":"U_SnatchThread.pas <span style='color:#111;'> 6.21KB </span>","children":null,"spread":false},{"title":"Cap_ip.dcu <span style='color:#111;'> 14.09KB </span>","children":null,"spread":false},{"title":"TestPing.dof <span style='color:#111;'> 1.97KB </span>","children":null,"spread":false},{"title":"U_Main.pas <span style='color:#111;'> 1.23KB </span>","children":null,"spread":false},{"title":"U_Main.dfm <span style='color:#111;'> 987B </span>","children":null,"spread":false},{"title":"TestPing.exe <span style='color:#111;'> 379.50KB </span>","children":null,"spread":false},{"title":"TestPing.cfg <span style='color:#111;'> 434B </span>","children":null,"spread":false},{"title":"Cap_ip.~pas <span style='color:#111;'> 18.62KB </span>","children":null,"spread":false},{"title":"TestPing.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"Uping.dcu <span style='color:#111;'> 3.67KB </span>","children":null,"spread":false},{"title":"TestPing.dpr <span style='color:#111;'> 242B </span>","children":null,"spread":false},{"title":"U_Main.~dfm <span style='color:#111;'> 987B </span>","children":null,"spread":false},{"title":"U_Main.~pas <span style='color:#111;'> 1.23KB </span>","children":null,"spread":false},{"title":"Cap_ip.pas <span style='color:#111;'> 18.62KB </span>","children":null,"spread":false},{"title":"TestPing.~dpr <span style='color:#111;'> 258B </span>","children":null,"spread":false},{"title":"U_Main.dcu <span style='color:#111;'> 4.99KB </span>","children":null,"spread":false},{"title":"Uping.~pas <span style='color:#111;'> 3.17KB </span>","children":null,"spread":false}],"spread":false}],"spread":true}]