Delphi 快速检测是否联网

本文整理自网络，侵删。

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

相关阅读 >>

Delphi idpop3收邮件

Delphi xe2 idhttp 获取utf-8编码中文网页

Delphi调用rest

Delphi 搭配hotkeyedit控件来解决问题

程序人生 : 30岁，我的程序员梦想

Delphi memo 控件光标定位

Delphi 使richedit中的链接可以点击

Delphi xe5 android获取手机联系人，并用listview显示

cef4Delphi 语言区域设置

tstringgrid 添加鼠标拖动功能

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

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