Delphi 快速检测是否联网

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 回车 选择下一个控件

Delphi 三层架构简单例子(经测试成功)

Delphi 如果判断一个网络文件是否存在？

Delphi 自定义产生随机字符串函数

Delphi unix时间转换成Delphi时间

Delphi 获取鼠标与键盘空闲时间

Delphi 安卓app自动升级

Delphi - system.runerror

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

Delphi 10 下提示sharedactivitycontext错误的解决方法

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

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