请问如何判断INTERNET是否连通？（最好是一个function)

Question

请问如何判断INTERNET是否连通？（最好是一个function)

Answer 1

uses WinInet;function InternetConnected: Boolean;
var
  ConTypes : Integer;
begin
  ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@ConTypes, 0);
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————