GetCursorPos - Obtém a posição do Mouse;
WindowFromPoint - Retorna o Handle de acordo com a posição informada;
GetWindowText - Obtém o Texto referente ao Handle;
GetClassName - Obtém a Classe referente ao Handle;
O evento OnTimer do Timer ficará assim:
procedure TfrmMain.tHandleTimer(Sender: TObject); var Handle : Longint; Posicao : TPoint; Texto, Classe: array [0..255] of char; begin GetCursorPos(Posicao); Handle := WindowFromPoint(Posicao); GetWindowText(Handle, Texto, SizeOf(Texto)); GetClassName(Handle, Classe, SizeOf(Classe)); edtHandle.Text := IntToStr(Handle); //TEdit edtTexto.Text := Texto; //TEdit edtClasse.Text := Classe; //TEdit end;Simples não?
Google Docs
Nenhum comentário:
Postar um comentário