Buscar

Internet conectada

Código

Function ChecaInternet: boolean;
Begin
AguardeInicio;
  if InternetCheckConnection('http://www.ig.com.br', 1, 0) then
     Begin
        Result:= true;
        AguardeFim.free;
     End
  else
     Begin
        AguardeFim.Free;
        Dialogo(1,'','Internet desconectada...', true,false);
        abort;
     End;
End;
 

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Forms
Adicionada dia: 26/02/10
Por: Walter Lucchesi Dias
Visualizada: 3159 vezes

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