Buscar por:

Exemplo de como pegar o nome de um objeto ou janela

Código

{Faça um teste com isso. Coloque um Timer, um Label, dois Edit e um Button.

No OnTimer coloque:}

var 

  p: TPoint; 

  i: THandle; 

begin 

  GetCursorPos ( p ); 

  i := WindowFromPoint ( p ); 

  Label1.caption := intToStr ( i ); 

end;  

//No OnClick do botão coloque

 var 

  i, x: integer; 

  s: array [ 0..2047 ] of char; 

begin 

  i := strToInt ( Edit1.text ); 

  GetWindowText ( i, s, x ); 

  Edit2.text := s; 

end;

{Para isso, crie um formulário pequeno e deixe-o em uma região discreta e passe o mouse sobre os "componentes" da calculadora. Você verá o caption do label se modificar com o Handle do window sob o mouse. Para obter o texto, use esse handle no primeiro edit1 clique no Botão para pegar o texto e trazê-lo para o edit2.}