Delphi 快速检测是否联网

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 2010 复制整个文件夹(当然包括嵌套文件夹)

Delphi 获取标题栏高

Delphi下获取ie的useragent的方法

Delphi incyear、incmonth、incweek、incday、inchour、incminute、incsecond、incmillisecond �c 增时

Delphi使用project manager添加一个java库到你的应用程序

Delphi 控制音量 静音的类

Delphi连接access提示密码无效解决一例

Delphi动态复选框源码

Delphi图像数据压缩解压缩实例

Delphi xe8 tstylebook的使用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 快速检测是否联网