Buscar por:

Tipo de conexão com a internet

Código

//Declare na uses WIninet,

var estado : Dword;

begin

  if not InternetGetConnectedState(@estado, 0) then

    ShowMessage('Você não está conectado à Internet.')

  else

  begin

    if estado and INTERNET_CONNECTION_LAN <> 0 then

      label1.Caption := (':: Connection :: Você está conectado à Internet através de LAN ::');

    if estado and INTERNET_CONNECTION_MODEM <> 0 then

      label1.Caption := (':: Connection :: Você está conectado à Internet através de MODEM ::');

    if estado and INTERNET_CONNECTION_PROXY <> 0 then

      label1.Caption := (':: Connection :: Você está conectado à Internet através de proxy ::');

  end;