Delphi - 인터넷 연결여부

uses WinInet;
 
 const
   INTERNET_RAS_INSTALLED          = $10 ;
   INTERNET_CONNECTION_OFFLINE     = $20 ;
   INTERNET_CONNECTION_CONFIGURED  = $40 ;
   
 function InternetCon:Boolean;  //Connected : True
 var
    dwConnectionTypes: DWORD;
 begin
  if(InternetGetConnectedState(@dwConnectionTypes, 0)) then
  begin
    if((dwConnectionTypes and INTERNET_CONNECTION_MODEM)      <> 0)then Result := True;
    if((dwConnectionTypes and INTERNET_CONNECTION_LAN)        <> 0)then Result := True;
    if((dwConnectionTypes and INTERNET_CONNECTION_PROXY)      <> 0)then Result := True;
    if((dwConnectionTypes and INTERNET_CONNECTION_MODEM_BUSY) <> 0)then Result := True;
    if((dwConnectionTypes and INTERNET_RAS_INSTALLED)         <> 0)then Result := True;
    if((dwConnectionTypes and INTERNET_CONNECTION_OFFLINE)    <> 0)then Result := True;
    if((dwConnectionTypes and INTERNET_CONNECTION_CONFIGURED) <> 0)then Result := True;
  end
  else Result := False;
 end;