...fabinho

procedure Desabilita; var valor: longbool; begin SystemParametersInfo(97, word(true), @valor, 0); end; procedure Habilita; var valor: longbool; begin SystemParametersInfo(97, word(false), @valor, 0); end; O que habilita/desabilita é o TRUE ou FALSE. Não é necessário colocar isto no evento OnkeyDown. abraço, ...fabinho ICQ UIN 117459074

Dae moçada, Preciso de ajuda pra fazer um programinha para enviar emails de texto com anexo no delphi7... não achei o componente SMTP que tem no Delphi 6.. se alguém puder me ajudar também como preencher os campos de host, etc, agradeço. Agradeço antecipadamente.