用API测试是否连接网络!

weixin_30570101

于 2011-11-26 08:54:00 发布

阅读量191

点赞数

原文链接：http://www.cnblogs.com/prtmon/archive/2011/11/26/2264043.html

版权

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 //ConTypes := $01 + $02 + $04;
      Result := True
else
if InternetCheckConnection(PWideChar(Url), 1, 0) then
      Result := True;
end;