Metodos e Tecnicas da Pesquisa: aula 5 (12/dez): ATENCAO: nao havera aula presencial nesses dias 19 e 20 devido a questao de saude grave na minha familia, as aulas retornam em janeiro!!! ... http://youtu.be/oMDGTHQe9Ao Quando eu era pequenina...Tive uma senhora que cuidou de mim "D. zefinha" ela sempre fazia bonecas de pano, eu as amava...Minha tia Anunciada tambem fazia, nao para mim somente; acho que so tive uma feita por ela mas eram mais bonidas do que as de dona zefinha fazia para mim, embora nao fosse feita com o mesmo amor ...Sempre quis fazer bonecas de pano, na verdade sou apaixonada por elas entao quando comprar minha maquina de costura realizarei este sonho. Fazer bonecas de pano para dar a meus amigos e para decorar minha casa.Todo sonho bom deve ser sonhado, e se possivel posto em pratica... Marcia Regina Graduanda em Enfermagem.: Filha de vo: Minha mae e sua gata favorita. "So a mediocridade e segura, por isso corra seus riscos e faca o que deseja." @paulocoelho— Anderson de Oliveira (@andersonol) 28 julho 2014 Quando voce sonha alto, todos os passos parecem ser o primeiro.#t2f #t2b Anderson de Oliveira (@andersonol) November 21, 2015 Voltando a registrar parte de desenvolvimento de aplicacoes em delphi, precisei mais uma vez trocar informacoes em aplicacoes distintas, mas algo mais simples do que uma string, nesse momento precisava apenas enviar um INTEGER para outra aplicacao, da primeira vez que registrei nesse blog era envio de uma string atraves de mensagem do windows, entao decidi deixar registrado aqui tambem esse exemplo.Definindo uma mensagem personalizada e enviando:<![CDATA[unit FormSendUnit;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Forms, Vcl.StdCtrls, Vcl.Controls;const WM_CUSTOM_SAMPLE = WM_USER + 1;type TFormSend = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var FormSend: TFormSend;implementation{$R *.dfm}procedure TFormSend.Button1Click(Sender: TObject);var I,J: Integer; Handle: HWND;begin Handle := FindWindow('TFormReceive',NIL); SendMessage(Handle, WM_CUSTOM_SAMPLE, I, J);end;end.]]>Recebendo os valores inteiros:<![CDATA[unit FormReceiveUnit;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Forms, Vcl.StdCtrls, Vcl.Controls;const WM_CUSTOM_SAMPLE = WM_USER + 1;type TFormReceive = class(TForm) private { Private declarations } procedure ReceiveInt(var Msg: TMessage); message WM_CUSTOM_SAMPLE; public { Public declarations } end;var FormReceive: TFormReceive;implementation{$R *.dfm}{ TFormReceive }procedure TFormReceive.ReceiveInt(var Msg: TMessage);var I,J: Integer;begin I := Msg.WParam; J := Msg.LParam; Caption := 'Recebido I: ' + IntToStr(I) + ' e J: ' + IntToStr(J);end;end.]]> Se eu fosse Testemunha de Jeova iria quebrar a vidraca de quem nao me atende e dizer "Quando uma porta se fecha Deus abre uma janela". Empreender e uma montanha russa, um dia da tudo certo, outro dia chega o fiscal. #mandic Anderson de Oliveira (@andersonol) 21 maio 2014Melhor errar rapido do que acertar lento #Mandic Anderson de Oliveira (@andersonol) 21 maio 2014Quando as pessoas trocam paes, cada um vai embora com um pao, quando trocam ideias cada um vai embora com duas ideias. #Mandic Anderson de Oliveira (@andersonol) 21 maio 2014Tenha foco, voce nao pode ser ginecologista e tarado ao mesmo tempo! #Mandic Anderson de Oliveira (@andersonol) 21 maio 2014Melhor aproximadamente agora do que exatamente nunca. #Mandic Anderson de Oliveira (@andersonol) 21 maio 2014Dinheiro nao traz felicidade, mas traz uma sensacao tao parecida, tao parecida que so especialista pra diferenciar. #Mandic Anderson de