判断是否联网
在uses中加入WinInet
if InternetCheckConnection('http://www.sina.com.cn',1,0) then
begin
showmessage('在线');
end
else
begin
showmessage('离线');
end;
或直接用ping后,查看(0% loss)或(100% loss),可知在线或离线
来源:CSDN
作者:qq_18932003
链接:https://blog.csdn.net/qq_18932003/article/details/103599486