Delphi WinAPI InternetGetConnectedState(wininet.h) - 检索本地系统的连接状态。

引用单元：

uses wininet;

函数原型：

function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall;

参数:

　　lpdwFlags 指向接收连接描述的变量的指针。即使函数返回FALSE，此参数也可能返回有效标志。此参数可以是以下一个或多个值。

• • INTERNET_CONNECTION_CONFIGURED　　0x40　　//本地系统具有到Internet的有效连接，但它当前可能已连接，也可能未连接。
  • INTERNET_CONNECTION_LAN　　0x02　　//本地系统使用 局域网 连接到Internet。
  • INTERNET_CONNECTION_MODEM　　0x01　　//本地系统使用 调制解调器 连接到Internet。
  • INTERNET_CONNECTION_MODEM_BUSY　　0x08　　//不再使用。
  • INTERNET_CONNECTION_OFFLINE　　0x20　　//本地系统处于脱机模式。
  • INTERNET_CONNECTION_PROXY　　0x04　　//本地系统使用代理服务器连接到Internet
  • INTERNET_RAS_INSTALLED　　0x10　　//本地系统已安装RAS。

　　dwReserved  //保留参数，必须为0

返回值：

　　如果有活动的调制解调器或LAN Internet连接，则返回True；如果没有Internet连接，或如果所有可能的Internet连接当前都不活动，则返回False。

 

Delphi 示例：

const
  INTERNET_CONNECTION_MODEM = 1;  
  INTERNET_CONNECTION_LAN = 2;  
  INTERNET_CONNECTION_PROXY = 4;   
  INTERNET_CONNECTION_MODEM_BUSY = 8;    
var
  dwConnectionTypes : DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_LAN;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

　　

 

创建时间：2021.05.18　　更新时间：