用Delphi实现程序检测计算机是否连网

用Delphi实现程序检测计算机是否连网 
1.首先在Uses中引用 wininet
2.写一个函数进行检测．代码如下：
{//功能:检测计算机是否上网    
  //返回值:成功:True 失败:False;
}
function InternetConnected:Boolean;StdCall;    
  const
      INTERNET_CONNECTION_MODEM=1;
      INTERNET_CONNECTION_LAN=2;    
      INTERNET_CONNECTION_PROXY=4;
      INTERNET_CONNECTION_MODEM_BUSY=8;    
  var       
      dwConnectionTypes:DWORD;    
  begin       
      dwConnectionTypes:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;    
      Result:=InternetGetConnectedState(@dwConnectionTypes,0);       
  end;
3.可以在你程序中调用进行检测．如：
procedure TForm1.Button1Click(Sender: TObject);
begin
    if InternetConnected=true then
    Application.MessageBox(PChar(‘网络连接成功‘),PChar(‘系统提示‘),MB_OK+MB_ICONINFORMATION)
else   
    begin
    Application.MessageBox(PChar(‘网络没有连接上.请检测‘),PChar(‘系统提示‘),MB_OK+MB_ICONINFORMATION);
    end;
end;
第二种判别方式:
if InternetCheckConnection(‘http://www.helison.com/‘,1,0)or
      InternetCheckConnection(‘http://www.microsoft.com/‘,1,0) then
begin
//表示连接网络成功
end
else
 //没有连接上