Delphi检测网络状态，是否连接Internet

[{"title":"（ 9 个子文件 11KB ） Delphi检测网络状态，是否连接Internet","children":[{"title":"okbase.net","children":[{"title":"ChenkOnline","children":[{"title":"ChenkOnline.dof <span style='color:#111;'> 2.38KB </span>","children":null,"spread":false},{"title":"frm_CheckOnLine.pas <span style='color:#111;'> 1.55KB </span>","children":null,"spread":false},{"title":"ChenkOnline.res <span style='color:#111;'> 1.19KB </span>","children":null,"spread":false},{"title":"frm_CheckOnLine.dfm <span style='color:#111;'> 1.40KB </span>","children":null,"spread":false},{"title":"ChenkOnline.cfg <span style='color:#111;'> 420B </span>","children":null,"spread":false},{"title":"ChenkOnline.dpr <span style='color:#111;'> 238B </span>","children":null,"spread":false},{"title":"frm_CheckOnLine.dcu <span style='color:#111;'> 4.99KB </span>","children":null,"spread":false},{"title":"frm_CheckOnLine.ddp <span style='color:#111;'> 51B </span>","children":null,"spread":false},{"title":"avi111.avi <span style='color:#111;'> 219.50KB </span>","children":null,"spread":false}],"spread":true}],"spread":true}],"spread":true}]