Mauro Jr
Membros-
Total de itens
86 -
Registro em
-
Última visita
Tudo que Mauro Jr postou
-
Rafael, infelizmente não funcionou . Mas mesmo assim agradeço o teu empenho. Respondendo a tua pergunta: Eu uso win 2000. Será que isso influencia? Abraços, Mauro Junior
-
Bah! Tentei, mas não funcionou. Não consegui desabilitar CTRL+ALT+DEL Força Sempre! Mauro Junior
-
Desabilitar o ALT + F4 deu certo. Mas desabilitar CTRL+ALT+F4 não funcionou. Por que será? Abraços, Mauro Junior
-
E aí gurizada bacana, Como faço para desabilitar o CTRL+ALT+DEL? Abraços, Mauro Junior
-
beleza cara, obrigado pela dica! A linha: label1.Caption := InttoStr(ord(Key)); além de identificar se o "caps" está ligado também identifica o pressionamento da tecla "shift". Antes da tua dica, eu estava fazendo o seguinte: procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin LABEL1.CAPTION := INTTOSTR(KEY); Edit1.Clear; if (not Odd(GetkeyState(VK_CAPITAL))) and (Label1.Caption > '64') and (Label1.Caption < '91') then LABEL1.CAPTION := IntToStr(Key + 32); end; Funciona para a tecla "caps", só que para o "shift" eu ainda não havia conseguido fazer nada. Mas do teu jeito é muito melhor. Nota 10 para ti! Força Sempre! Mauro Junior
-
Valeu pela dica Tchê! Nota 10! Consegui descobrir os códigos que precisava. Força Sempre! Mauro Junior
-
E aí gurizada? Quais os códigos ASCII correspondentes às teclas: Alt, Del, Ctrl e F4? Força Sempre! Mauro Junior
-
Valeu parceiro! Agradeço a atenção! Um amigo mostrou-me uma outra forma que também funciona (é através da Mapi). Eis aqui um exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,Mapi; type TForm1 = class(TForm) GroupBox1: TGroupBox; Label1: TLabel; EditOrigem: TEdit; EditDestino: TEdit; Label2: TLabel; Label3: TLabel; EditAssunto: TEdit; Bevel1: TBevel; MemoMensagem: TMemo; Label4: TLabel; EditAnexo: TEdit; Panel1: TPanel; Button1: TButton; Bevel2: TBevel; Label5: TLabel; procedure Button1Click(Sender: TObject); function EnviarEmail(const de,para,assunto,texto,arquivo:string;confirma:boolean):integer; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin EnviarEmail(EditOrigem.Text,EditDestino.Text,EditAssunto.Text,MemoMensagem.Text,EditAnexo.Text,true); end; function Tform1.EnviarEmail(const de,para,assunto,texto,arquivo:string;confirma:boolean):integer; var Msg : TMapiMessage; lpSender, lpRecepient : TMapiRecipDesc; FileAttach : TMapiFileDesc; SM : TFNMapiSendMail; MapiModule : HModule; Flags : Cardinal; begin //Propriedade de Mensagem FillChar(Msg,SizeOf(Msg),0); with Msg do begin if (Assunto <> '') then lpszSubject := PChar(Assunto); if (Texto <> '') then lpszNoteText := PChar(Texto); //Remetente if (De <> '') then begin lpSender.ulRecipClass := Mapi_Orig; lpSender.lpszName := PChar(De); lpSender.lpszAddress := PChar(De); lpSender.ulReserved := 0; lpSender.ulEIDSize := 0; lpSender.lpEntryID := nil; lpOriginator := @lpSender; end; //Destinatário if (Para <> '') then begin lpRecepient.ulRecipClass := Mapi_To; lpRecepient.lpszName := PChar(Para); lpRecepient.lpszAddress := PChar(Para); lpRecepient.ulReserved := 0; lpRecepient.ulEIDSize := 0; lpRecepient.lpEntryID := nil; nRecipCount := 1; lpRecips := @lpRecepient; end else lpRecips := nil; //Arquivo anexo if (Arquivo = '') then begin nFileCount := 0; lpFiles := nil; end else begin FillChar(FileAttach,SizeOf(FileAttach),0); FileAttach.nPosition := Cardinal($FFFFFFFF); Fileattach.lpszPathName := PChar(Arquivo); nFileCount := 1; lpFiles := @FileAttach; end; //Carrega a dll e o método para envio do email showmessage(PChar(MapiDll)); MAPIModule := LoadLibrary(PChar(MapiDll)); if MAPIModule = 0 then Result := -1 else try if Confirma then Flags := MAPI_Dialog or MAPI_Logon_Ui else Flags := 0; @SM := GetProcAddress(MAPIModule,'MAPISendMail'); if @SM <> nil then Result := SM(0,Application.Handle,Msg,Flags,0) else Result := 1; finally FreeLibrary(MAPIModule); end; end; end; end. Abraços, Mauro Junior
-
E aí gurizada, Tenho uma lista de e-mails em um DBLooKup e em um DBGrid. A minha dúvida é a seguinte: Como faço para enviar um e-mail para um dos registros da lista . E se eu tiver um DBEdit com um enderço de e-mail, como faço para enviar um e-mail para este endereço? Espero que alguém possa explicar minhar dúvidas ou parte delas! Abraços, Mauro Junior
-
Valeu cara, Obrigado pela atenção
-
Fiz um curso on-line de Delphi. Um dos exemplos era um simples Editor de Textos(foi uzado o componente Memo) só que tenho algumas dúvidas: 1- Quando abro um arquivo já existente e faço uma alteração nele, aparece a clássica pergunta: "Deseja salvar as alterações?". Quando clico no Sim aparece a caixa de diálogo Salvar Como. E é nesse ponto que está minha dúvida: Como faço para salvar uma alteração diretamente, sem que apareça a caixa de diálogo Salvor Como? 2- Quando salvo um arquivo ele sempre é salvo com a extensão "pde"´. Como faço para que este arquivo seja salvo com a extensão "txt"? (afinal algum usuário pode não entender nada sobre extensão de arquivos). 3- Como faço para formatar apenas o texto selecionado e não o documento inteiro? Estas são minhas dúvidas, espero que alguém possa respondê-las. Abraços Mauro Junior