Fórum Componente Discagem Verificar se esta conectado. #168219

Tá...Tudo bem...Não é um componente...É apenas uma função..Mas, deve quebrar o teu galho...

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;
[b:e3e96bf5aa][/b:e3e96bf5aa][b:e3e96bf5aa][/b:e3e96bf5aa]

Obrigado amigo