Fórum Pegar o "Pai" de um Handle. #393644

Galera é o seguinte,

Estou fazendo um Robo que vai manipular outra aplicação.

o meu maior problema estava sendo simular o click em botoes do outro sistema, mas ai o que estou fazendo pego o Handle do botão usando o FindWindowEx, então resumindo.

Pego o Handle da Aplicação usando FindWindow, apos isso pego o Handle do Botão que desejo clicar usando FindWindowEx e com o handle em questão armazenado eu executo o seguinte comando

SendMessage(HndleButton,WM_LBUTTONDOWN,0,0);
SendMessage(HndleButton,WM_LBUTTONUP,0,0);

ate ai tudo beleza funciona 100%.

agora que vem o problema, tem um determinado botao que eu nao consigo pegar o Handle dele, imagino eu que porque ele deve pertencer a outro handle que não seja a janela principal (tipo um panel).

ai o que acontece encontrei na net o seguinte codigo fonte onde eu consigo pegar o handle e a classe do objeto onde o mouse aponta, e se eu passo o mouse no botao em questão eu pego o handle dele normalmente e se simulo o click usando o handle indicado pela rotina do mouse funciona.


  public
    { Public declarations }
    classname : array[0..255] of char;
    oldclassname : string;
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  cPos : TPoint;
  handle, T : THandle;
  Buffer : array[0..255] of Char;
begin
  GetCursorPos(cPos);
  handle := WindowFromPoint(cPos);
  GetClassName(handle,classname,256);



  if string(classname) <> oldclassname then begin
    Memo1.Lines.Add('--------------------');
    Memo1.Lines.Add('Handle: '+IntToStr(handle));
    Memo1.Lines.Add('Classe: '+ String(classname));
    oldclassname := string(classname);

    SendMessage(handle, WM_APP, 0, T);
    Memo1.Lines.Add('Buffer: '+IntToStr(Memo1.Parent.Handle));

  end;

end;



então o que preciso para resolver meu problema é saber as informaçoes (handle e Classe) do objeto que é "pai"  de  um handle X que ja tenho pois obtive ele atraves do codigo acima.



Se alguem conseguir me ajudar ficarei muito grato.