Name ou ID de componente de outro programa

Delphi

23/04/2015

Olá pessoal, preciso desenvolver uma rotina na qual eu descubra o name ou alguma identificação única dos componentes de qualquer outro sistema.
Eu consegui mais ou menos através do código a seguir em um timer mas não funcionou direito, e não queria que fosse em um timer, e sim no próprio evento click do mouse

var
  p: TPoint;
  i: THandle;
  s: array [0 .. 2047] of char;
  X: Integer;
begin
  if Mouse.MousePresent then
  begin
    GetCursorPos(p);
    i := WindowFromPoint(p);
    edt1.text := intToStr(i);

    s := '';
    GetWindowText(i, s, X);
    edt2.text := s;
  end;
end;
Cauê Nishijima

Cauê Nishijima

Curtidas 0
POSTAR