监测当前网络连接状态.rar监测当前网络连接状态.rar监测当前网络连接状态.rar

Delphi 监测当前Internet连接状态是否在线，检测判断电脑是否可以上网，网络连接检测程序范例，比较早的代码了，仅供参考。部分代码分享如下： 　　ani.Visible:=true; 　　if CheckOffline then 　　begin 　　 ani.Active:=false; 　　 showmessage(网络连接状态：没在线！); 　　end 　　else 　　begin 　　 ani.Active:=true; 　　 showmessage(网络连接状态：在线！