Artigos Delphi Dicas - Detectando o tipo de Conexão com a internet

 

Detectando o tipo de Conexão com a internet

uses Wininet

 

function ConnectionKind: Boolean;

var

  flags: DWORD;

begin

  Result := InternetGetConnectedState(@flags, 0);

  if Result then

  begin

  if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM

then

  ShowMessage(Modem);

  if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then

  ShowMessage(LAN);

  if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY

then

  ShowMessage(Proxy);

  if (flags and INTERNET_CONNECTION_MODEM_BUSY) =

INTERNET_CONNECTION_MODEM_BUSY then

  ShowMessage(Modem Busy);

  end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ConnectionKind;

end;