Código
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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009