Delphi 快速检测是否联网

转自： http://www.delphitop.com/html/wangluo/2990.html

use WinInet;  
  //正确检测是否在线方法
  if InternetGetConnectedState(nil, 0) then
  begin
    Self.Caption := '在线';
  end
  else
  begin
    Self.Caption := '脱机';
  end;
经测试，和QQ检测是否在线基本相同。