[DELPHI] OBTER O TIPO DE CONEXÃO

//uses winInet

procedure TForm1.Button1Click(Sender: TObject);

var

  flags: DWORD;

  _internet: Boolean;

begin

  _internet := InternetGetConnectedState(@flags, 0);

  if _internet 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('Conexão por lan');

    if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then

      ShowMessage('Conexão por proxy');

    if (flags and INTERNET_CONNECTION_MODEM_BUSY) = INTERNET_CONNECTION_MODEM_BUSY then

      ShowMessage('Modem ocupado');

  end;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】