各位高手请指教，怎样在用webbrowser浏览网页之前判断本机已经接入因特网？？

Question

你找个以前的那种上网控制的代码看看

Answer 1

{=================================================================
  功  能: 检测机器是否登入网络
  参  数: 无
  返回值: 成功:  True  失败:  False
  备 注:
  版 本:
     1.0  2002/10/03 09:55:00
=================================================================}
Function CheckMacAttachNet: Boolean;
begin
  Result := False;
  if GetSystemMetrics(SM_NETWORK) <> 0 then
    Result := True;
end;{=================================================================
  功  能:  检测计算机是否上网
  参  数:  无
  返回值:  成功:  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;
//关闭网络连接
function NetCloseAll:boolean;
const
  NETBUFF_SIZE=$208;
type
  NET_API_STATUS=DWORD;
  LPByte=PByte;
var
  dwNetRet          :DWORD;
  i                 :integer;
  dwEntries         :DWORD;
  dwTotalEntries    :DWORD;
  szClient          :LPWSTR;
  dwUserName        :DWORD;
  Buff              :array[0..NETBUFF_SIZE-1]of byte;
  Adword            :array[0..NETBUFF_SIZE div 4-1] of dword;
  NetSessionEnum:function ( ServerName:LPSTR;
                         Reserved:DWORD;
                         Buf:LPByte;
                         BufLen:DWORD;
                         ConnectionCount:LPDWORD;
                         ConnectionToltalCount:LPDWORD ):NET_API_STATUS;
                         stdcall;  NetSessionDel:function  ( ServerName:LPWSTR;
                         UncClientName: LPWSTR ;
                         UserName: dword):NET_API_STATUS;
                         stdcall;
  LibHandle   : THandle;
begin
  Result:=false;
try
    { 加载 DLL }
    LibHandle := LoadLibrary('svrapi.dll');
    try
      { 如果加载失败，LibHandle = 0.}
      if LibHandle = 0 then
        raise Exception.Create('不能加载SVRAPI.DLL');
      { DLL 加载成功，取得到 DLL 输出函数的连接然后调用 }
      @NetSessionEnum := GetProcAddress(LibHandle, 'NetSessionEnum');
      @NetSessionDel := GetProcAddress(LibHandle, 'NetSessionDel');      if (@NetSessionEnum = nil)or(@NetSessionDel=nil) then
        RaiseLastWin32Error     { 连接函数失败 }
      else
      begin
        dwNetRet := NetSessionEnum( nil,$32, @Buff,
                                    NETBUFF_SIZE, @dwEntries,
                                    @dwTotalEntries );
        if dwNetRet = 0 then
        begin
          Result := true;
          for i:=0 to dwTotalEntries-1 do
          begin
            Move(Buff,Adword,NETBUFF_SIZE);
            szClient:=LPWSTR(Adword[0]);
            dwUserName := Adword[2];
            dwNetRet := NetSessionDel( nil,szClient,dwUserName);
            if( dwNetRet <> 0 ) then
            begin
              Result := false;
              break;
            end;
            Move(Buff[26],Buff[0],NETBUFF_SIZE-(i+1)*26);
          end
        end
        else
          Result := false;
      end;
    finally
      FreeLibrary(LibHandle); // Unload the DLL.
    end;
  except
  end;
end;