请问如何在程序里判断机器是否连接在INTERNET上？？

Question

怎么判断是否可以上网？？？

Answer 1

                                                                
                                                                
                                                                
                                                                
    GZGZGZGZ        GZGZGZGZ        GZGZGZGZGZGZGZGZGZGZ        
    GZGZGZ            GZGZ            GZGZGZ        GZGZGZ      
    GZGZGZ            GZGZ            GZGZGZ        GZGZGZGZ    
    GZGZGZ            GZGZ            GZGZGZ          GZGZGZ    
    GZGZGZ            GZGZ            GZGZGZ          GZGZGZ    
    GZGZGZ            GZGZ            GZGZGZ          GZGZGZ    
    GZGZGZ            GZGZ            GZGZGZ          GZGZGZ    
    GZGZGZ            GZGZ            GZGZGZ        GZGZGZ      
    GZGZGZ            GZGZ            GZGZGZ      GZGZGZGZ      
    GZGZGZ            GZGZ            GZGZGZGZGZGZGZGZGZ        
    GZGZGZ            GZGZ            GZGZGZ                    
    GZGZGZ            GZGZ            GZGZGZ                    
    GZGZGZ            GZGZ            GZGZGZ                    
      GZGZ            GZGZ            GZGZGZ                    
      GZGZGZ        GZGZ              GZGZGZ                    
      GZGZGZ        GZGZ              GZGZGZ                    
      GZGZGZ        GZGZ              GZGZGZ                    
        GZGZGZ    GZGZ                GZGZGZ                    
          GZGZGZGZGZGZ            GZGZGZGZGZGZGZ                
                                                                
                                                                
                                                                
                                                                
                                                                

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
    ShowMessage('Machine is attached to network') else
    ShowMessage('Machine is not attached to network');
end;

Answer 3

来晚了，　　
Naughtyboy 说的对！

Answer 4

我就怎么不行呀,
我拨掉网线,它也执行ShowMessage('Machine is attached to network') 这句!为什么?

Answer 5

{=================================================================
  功  能:  检测计算机是否上网
  参  数:  无
  返回值:  成功:  True  失败: False;
  备 注:   uses Wininet
  版 本:
     1.0  2002/10/07 13:33:00
=================================================================}
function InternetConnected: Boolean;
const
  // local system uses a modem to connect to the Internet.
  INTERNET_CONNECTION_MODEM      = 1;
  // local system uses a local area network to connect to the Internet.
  INTERNET_CONNECTION_LAN        = 2;
  // local system uses a proxy server to connect to the Internet.
  INTERNET_CONNECTION_PROXY      = 4;
  // local system's modem is busy with a non-Internet connection.
  INTERNET_CONNECTION_MODEM_BUSY = 8;
var
  dwConnectionTypes : DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM+ INTERNET_CONNECTION_LAN
  + INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
—————————————————————————————————
┏━★━━◆━━★━┓ 
♂欢|◢ＣＳＤＮ◣|使♂
┃迎|◥论坛助手◤|用┃
┗━☆━━◇━━━☆┛
让你更快，更爽，更方便地上CSDN...
http://www.chinaok.net/csdn/csdn.zip