Delphi 快速检测是否联网

本文整理自网络，侵删。

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

相关阅读 >>

Delphi tms web core直接从html&css设计的页面布局

Delphi strlenwide 汇编统计字符串长度

Delphi 一个高效的正整数排序函数

Delphi 文件转换base64

Delphi 中showmodal与show的区别

Delphi应用程序 paramstr（）带有参数

Delphi 获取文件夹时间

Delphi嵌入循环汇编

Delphi sqlite实现加密

Delphi 清空文件夹

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

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