Verificar conexão de internet com Delphi


Esta simples função serve para verificar se o seu computador está conectado a Internet. Pode ser usada, por exemplo, num software de atualização para o seus sistemas!

function TfrmMenu.estaConectado: boolean;
var
 flags : DWORD;
begin
 // verifica se está conectado a internet usando a API do Windows, é preciso declarar a uses WinInet.
 if not InternetGetConnectedState(@flags, 0) then
    result := false
 else
    result := true;
end;

Anúncios

7 comentários sobre “Verificar conexão de internet com Delphi

  1. Uses: Wininet

    if InternetCheckConnection(‘http://www.yahoo.com/’, 1, 0) then
    showmessage(‘Conectado’)
    else
    showmessage(‘Disconectado’);

  2. Infelizmente esse código não funfou comigo, ai utilizei o do Fred mesmo, e pegou tranquilo, é.. agente trabalha com o que tem né.. mas valeu cara 😉

  3. Também utilizei o código do Fred.
    Simples e funcional, porém parcialmente.
    Ele testa a conexão e funciona;
    Marco o Internet Explorer como Off-line, beleza, retorna desconectado;
    Quando volto o Internet Explorer para On-line, ele continua retornando desconectado.
    Alguma ideia?

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s