判断是否联网
在uses中加入WinInet
if InternetCheckConnection('http://www.sina.com.cn',1,0) then
begin
showmessage('在线');
end
else
begin
showmessage('离线');
end;
或直接用ping后,查看(0% loss)或(100% loss),可知在线或离线
判断是否联网
在uses中加入WinInet
if InternetCheckConnection('http://www.sina.com.cn',1,0) then
begin
showmessage('在线');
end
else
begin
showmessage('离线');
end;
或直接用ping后,查看(0% loss)或(100% loss),可知在线或离线