use WinInet; ...... function netConnected : boolean; var linkTypes: Integer; begin linkTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; Result := InternetGetConnectedState(@linkTypes, 0); end;
启用网络，此方法返回true,断开网络此方法返回false