本文整理自网络,侵删。
function isConnectNet: Boolean;
var
Types : Integer;
begin
Types := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@types, 0);
end;
相关阅读 >>
Delphi winapi: extracticon - 获取 exe、dll 或 ico 文件中的图标
Delphi xe更改ttrayicon系统任务栏图标(无模糊)
Delphi adoconnection1 连接excel表格读取数据
更多相关阅读请进入《Delphi》频道 >>