Buscar

Testa conectividade com internet (está funciona, testado até no windows vista)

Código

Uses WinInet;

....
....

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
     MessageBox(handle, 'Você não está conectado a internet! ', 'Atenção', mb_Ok + mb_IconWarning);
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Rede
Adicionada dia: 07/12/07
Por: Saulo Challout
Visualizada: 6171 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009