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 xe6 string转memorystream

Delphi的unicode与gb2312转转换,汉字unicode转gb2312

Delphi异常死亡进程的自动复活

Delphi edit右键系统菜单加自定义菜单项

Delphi getsessionusername通过会话id得到会话名称

Delphi 为richedit设置行号

Delphi利用文件流把文件拆分与合并

Delphi 字幕下载单元subdownload.pas

Delphi读写文本文件 assignfile reset append

Delphi10.3模拟读取百度网页，并读取相关头部信息

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

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