本文整理自网络,侵删。
function isConnectNet: Boolean;
var
Types : Integer;
begin
Types := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@types, 0);
end;
相关阅读 >>
Delphi android实例-录音与回放(播放mp3)(xe8+小米2)
winapi 字符及字符串函数(6): ischaralphanumeric - 是否是个文字(字母或数字)
Delphi cxdbtreelist:最简单的节点图标添加方法
更多相关阅读请进入《Delphi》频道 >>