摘要： uses Wininet;{$R *.dfm}function NetWorkIsConnect(Url:string='http://www.microsoft.com/'): Boolean;var ConTypes : Integer;begin Result := false; ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; if InternetGetConnectedState(@ConTypes, 0) then //Con.. 阅读全文