(Resolvido) Envio Automatico Para Email

[lucasgn]

E o sequinte consequi montar todo o programa com envio de email e tudo belezinha!!

O meu problema e quando o computador não esta conectado a internet!! E retorna um erro

socket error 10060 = Sem Conecçao Com a Intenet!!

Existe Algum Codigo Que Possa Ocultar Esse Erro? Ou Mesmo Fazer Ele não Acontecer? (Mas sem retornar qualquer tipo de Mensagem ou alerta...)

:D Desde já agradeço a quem ajudar =)

Pode Deixar já Achei Meu Geito ¬¬

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags : Cardinal;
begin
  if not InternetGetConnectedState(@Flags, 0) then
        ShowMessage('Você não está conectado à Internet')
      else if Flags and INTERNET_CONNECTION_LAN <> 0 then
        ShowMessage('Você está conectado à Internet através de um roteador')
      else if Flags and INTERNET_CONNECTION_PROXY <> 0 then
        ShowMessage('Você está conectado à Internet através de um proxy')
      else
        ShowMessage('Você está conectado à Internet')
end;

Usei Este Codigo Para Entender O Que EU Presisava então Acho Que Quem Tiver A Mesma Duvida não Vai Ter Dificuldades!!

Esqueci De Dizer Tem Que Declarar WinInet Nas uses!! Vlw Galera!!

Editado Dezembro 6, 2010 por lucasgn