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 更新时间: