判断是否联网

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

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