Fórum Recuperar o valor da calculadora do windows #232112

Pegando o conteúdo da calculadora padrão do windows Para pegar o valor da caixa de texto da calculadora, você precisa: Pegar o handle da calculadora Pegar o tamanho do texto da caixa Pegar o texto da caixa E exibi-lo Para fazer isto, é bem simples, coloque um Text e um Button no seu form. Agora procure pela calculadora utilizando a API FindWindow, ela retorna o handle da janela que está sendo procurada caso for encontrada. Handle é um numero de identificação que todos os objetos do Windows tem. Então vamos lá: Crie uma variável qualquer do tipo Thandle Var h: Thandle; Procure pela calculadora H := FindWindow(´ScilCalc´, nil); Pronto, você já possui o handle da calculadora, o que possibilita o controle dela. Agora, pegue o handle da caixa, ou seja, um filho que a calculadora tem, ele vai te retornar o handle da caixa de texto. A variável h pois o handle da calculadora não será mais utilizado, utilize outra se você ainda vai controlar a calculadora h := getwindow(h, GW_CHILD); pronto, temos a caixa de texto Agora, mande uma mensagem para a caixa dizendo que você quer o tamanho do texto dela. Crie uma variável onde você irá guardar este tamanho. Var i: Integer; SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1; Você precisa inicializar uma variável string com o tamanho do texto, pois a próxima api a ser utilizada, retorna o texto para a variável, e se ela tiver tamanho menor, ela não aumenta a variável automaticamente. Portanto, sete o tamanho dessa variável texto. setLength(s, i); Agora s tem o lenght de i, que foi o tamanho que você pegou do texto da caixa da calculadora agora, pegue o texto SendMessage(h, WM_GETTEXT, i, Integer(s)); Pronto, agora é só você tratar o seu valor. No final seu código deverá ficar assim : procedure TForm1.Button1Click(Sender: TObject); Var h: Thandle; s : string; i: Integer; begin h := FindWindow(´SciCalc´, Nil); h := getwindow(h, GW_CHILD); i := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1; setLength(s, i); SendMessage(h, WM_GETTEXT, i, Integer(s)); s := trim(s); Edit1.Text := s; end;