Delphi 快速检测是否联网

本文整理自网络，侵删。

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

相关阅读 >>

Delphi中轻松实现tidftp的断点续传

Delphi 获取windows任务栏的高度

Delphi目录操作示例

Delphi post数据与对应的接收方式

Delphi中判断某个文件是否已经打开

Delphi中webbrowser自动登录路由器网页

Delphi 10.3.2 社区版的安装

Delphi 在rxrichedit中插入图片的完美解决方法

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

使用Delphi启动和关闭外部应用程序

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

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