Recuperar o valor da calculadora do windows 2 parte

Delphi

09/04/2005

pesquisando aqui no forum , encontrei uma sugestão bem interresante, no que diz a este assunto.

http://forum.clubedelphi.net/viewtopic.php?t=43989&highlight=calculadora

onde seguindo a dica do Chico Gois as instruçoes para isto são :

procedure TForm1.Timer1Timer(Sender: TObject);
var
h: Thandle; 
s : string; 
i: Integer; 
begin
//Procure pela calculadora 
  H := FindWindow(´scicalc´, nil);
//pegue o handle da caixa, ou seja, um filho que a calculadora 
  h := getwindow(h,GW_CHILD);
//Tamanho do Texto 
 i:=SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1;
// inicializar uma variável string com o tamanho do texto
  setLength(s, i);
//agora, pegue o texto 
  SendMessage(h, WM_GETTEXT, i, Integer(s));
//tratar o seu valor
  s := trim(s);
//Exibi-lo
  Edit1.Text := s;
end;


porem encontrei tb uma dica do nildo muito interresante neste outro tópico:

http://forum.clubedelphi.net/viewtopic.php?t=4735&highlight=calculadora

onde seguindo a dica do nildo , a gente coloca uma janela , dentro de um form , usando a seguinte instrução :
windows.SetParent( FindWindow( nil, ´Calculadora´ ), Form1.handle )


[color=red:c727634e97]Agora mais precisamente, é que entra a segunda parte desta dúvida...[/color:c727634e97]

Ao Colocar a janela dentro do form como fica o código para capturar
o valor da calculadora em um edit :cry: :cry: :cry:


Marco Salles

Marco Salles

Curtidas 0

Respostas

Marco Salles

Marco Salles

09/04/2005

sobe


GOSTEI 0
Marco Salles

Marco Salles

09/04/2005

Nada ate agora :cry: :cry: :cry: :cry:


GOSTEI 0
Marco Salles

Marco Salles

09/04/2005

nun credito :cry: :cry: :cry: :cry:


GOSTEI 0
Nildo

Nildo

09/04/2005

Com a calculadora fora do Form, funciona? E ela dentro do Form nao funciona?


GOSTEI 0
Marco Salles

Marco Salles

09/04/2005

Com a calculadora fora do Form, funciona? E ela dentro do Form nao funciona?


Fora do form a calculadora funciona, normalmente e o valor da calculadora e capturado num edit dentro do form...

Mas ao colocar a Calculadora dentro do form :
windows.SetParent( FindWindow( nil, ´Calculadora´ ), Form1.handle )

Ja não se consegue mais capturar o valor da calculadora, atraves dos códigos passados pelo Chico Goes

Esta faltando ajustar o Código passado pelo nildo Com o Código passado pelo Chico Goes :cry: :cry: :cry:


GOSTEI 0
Marco Salles

Marco Salles

09/04/2005

Sobe :cry: :cry: :cry: :cry:


GOSTEI 0
POSTAR