快速检测是否联网

快速检测是否联网

(2011-07-27 09:16:48)

转载▼

标签： it

分类： Delphi-网络

use WinInet;

 

  //正确检测是否在线方法
  if InternetGetConnectedState(nil, 0) then
  begin
    Self.Caption := '在线';
  end
  else
  begin
    Self.Caption := '脱机';
  end;

经测试，和QQ检测是否在线基本相同。