判断是否联网

在uses中加入WinInet
if InternetCheckConnection('http://www.sina.com.cn',1,0) then
begin
showmessage('在线');
end
else
begin
showmessage('离线');
end;

或直接用ping后，查看(0% loss)或(100% loss)，可知在线或离线

【推广】免费学中医，健康全家人

原文地址：https://www.cnblogs.com/djcsch2001/p/2101401.html