Internet - descobrir o tipo de conexao

uses WinInet;

function TipoConexao: Boolean;

var

  Flags: DWord;

begin

  Result := InternetGetConnectedState(@flags, 0);

  if Result then

  begin

    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;

.