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!!