delphi判断电脑连接到 Internet 了吗？

本文整理自网络，侵删。

 
procedure CheckConnection; 
var 
  dwFlags: DWORD; 
begin 
if InternetGetConnectedState(@dwFlags, 0) then begin 
    if (dwFlags and INTERNET_CONNECTION_MODEM)=INTERNET_CONNECTION_MODEM then 
      ShowMessage('Connected through modem') 
else if (dwFlags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then 
    ShowMessage('Connected through LAN') 
  else if (dwFlags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then 
    ShowMessage('Connected through Proxy') 
  else if (dwFlags and INTERNET_CONNECTION_MODEM_BUSY) = 
  INTERNET_CONNECTION_MODEM_BUSY then 
    ShowMessage('Modem is busy'); 
  end else 
    ShowMessage('Offline'); 
end; 

//don't forget 
uses WinInet;
 

相关阅读 >>

Delphi idhttp中get与post的区别

Delphi tidhttp获取软件版本信息

Delphi xe2 新增 system.zip 单元, 可用一句话压缩整个文件夹了

Delphi firedac 连接access mdb数据库的方法

Delphi 获取临时文件夹路径

Delphi ifdef 另类用法

Delphi getforegroundwindow 与 getactivewindow 的区别

Delphi xe 中的字符串生成哈希值（md5 / sha-1 / jenkins）

Delphi获得唯一id字符串

Delphi实现win10下Delphi 10.3.1 inline hook 调试器法获取寄存器并修改

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

转载请注明出处：木庄网络博客 » delphi判断电脑连接到 Internet 了吗？