Delphiの迅速な検出ネットワークは、ネットワークケーブルが外れているか否かを判断します。しかし、それは、インターネットへのアクセスかどうかを決定することはできません

 

https://blog.csdn.net/chelen_jak/article/details/50204145

Delphiはすぐにネットワーキングかどうかを検出します

2015年12月7日12時01分26秒chelen_jakは読み込み：1944  

 

転送： http://www.delphitop.com/html/wangluo/2990.html

のWinInetを使用して、 
  正しいライン検出方法は、//か
  InternetGetConnectedState（nilで、0）、その後のIF
  始める
    Self.Captionを：=「行を」;
  終了
  他
  始めます
    Self.Caption：=「オフ」;
  END;
試験したかどうか、およびQQライン検出は、実質的に同じです。