Buscar por:

Tipo de conexão

Código

Uses WinInet;

Function TipoConexao:boolean; 

var 

  flags: dword; 

begin 

  Result := InternetGetConnectedState(@flags, 0); 

  if Result then begin 

  showmessage('Conexão a Internet está Ativa'); 

  if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then 

  showmessage('Conexão por modem'); 

  if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then 

  showmessage('Conexião por lan'); 

  if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then 

  showmessage('Conexião por proxy'); 

  if (flags and INTERNET_CONNECTION_MODEM_BUSY) =INTERNET_CONNECTION_MODEM_BUSY then 

  showmessage('modem ocupado'); 

  end; 

end; 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

  TipoConexao; 

end;