ActiveDelphi

[brunosamuell]

[solitary_knight]

Amigo tente as funções EnumChildWindows e Na função de callback a função GetWindowText.

Depois de achar o handle do botão usa um sendmessage com BM_CLICK par a simular o click do botão

Para achar a janela que tem o Botão use FindWindow

Qualquer dúvida de como usar as funções posta ai

[brunosamuell]

vc teria um como me mostrar um exemplo para testar?

agradeço muito a ajuda!!

[solitary_knight]

Cria dois projetos, o primeiro é onde vc vai trabalhar e o outro é como se fosse o que quer interagir.

No meu caso a classe do form do exe que quero interagir é TForm2.

essas são as duas funções que eu criei para procurar o botão.
Nese form tem um TBotton e um ListBox.

Se tiver dúvida em alguma coisa, me manda o programa via e-mail que eu do uma olhada. Avisa que mandou.

o_theface@yahoo.com

procedure TmainForm.Button1Click(Sender: TObject);
var wnd: THandle;
begin
ListBox1.Clear;
wnd:= FindWindow(PChar('TForm2'), nil);

if (wnd <= 0) then
begin
ShowMessage('Janela não encontrada');
Exit;
end;

EnumChildWindows(wnd, @EnumChildProc, 0);
end;

function EnumChildProc(hwnd: HWND; lParam: LPARAM): BOOL;
var buf, buf2: array[0..255] of Char;
begin
GetClassName(hwnd, buf, sizeof(buf) - 1);
GetWindowText(hwnd, buf2, sizeof(buf2) - 1);
mainForm.ListBox1.items.Add(buf + ' - ' + buf2);

Result:= True;
end;