Кликнуть кнопку в другом приложении

[cashmail]

Здравствуйте, надо кликнуть в программе на кнопку
Handle программы находит

h1:=FindWindow('TForm1', 'proga');

Все нормально находит Потом пытаюсь найти Handle кнопки

h2 := findwindowex(h1,0,'TButton','Button5');

Но handle = 0
Прикладываю архитектуру программы (программой Restorator 2005)

object Button5: TButton
        Left = 264
        Top = 360
        Width = 75
        Height = 25
        Caption = 'Button5'
        TabOrder = 4
        Visible = False
        OnClick = Button5Click
      end

Ничего понять не могу, помогите пожалуйста!

P.S. У этой кнопки Visible = False, но например кнопку

      object Button1: TsButton
        Left = 391
        Top = 7
        Width = 105
        Height = 25
        Caption = 'Искать!'
        TabOrder = 8
        OnClick = Button1Click
        SkinData.SkinSection = 'BUTTON'
      end

h2 := findwindowex(h1,0,'TsButton','Искать!');

[Stilet]

С помошью Spy++ посмотри дерево окон - есть ли там такая кнопка в твоем окне и как она вложена.

[Аватар]

Там кнопка в TTabSheet, тот в свою очередь в TPageControl. Т.е. родитель формы не кнопка

[cashmail]

А можно ссылочку? Просто она идет в visual studio 2005, а она много весит((
Аватар, тогда что мне делать?

[Аватар]

По цепочке хендлов по вложениям от одного окна к другому с помощью findwindowex

[cashmail]

h2 := findwindowex(h1,0,'TTabSheet',nil);

Дает 0

h2 := findwindowex(h1,0,'TsPageControl','Поиск контактов');

Дает 0

[Аватар]

А так?

h2 := findwindowex(h1,0,'TsPageControl','PageControl1');
h3 := findwindowex(h2,0,'TsTabSheet','Поиск контактов');
h4 := findwindowex(h3,0,'TsButton','Искать!');

[cashmail]

h2 := findwindowex(h1,0,'TsPageControl','PageControl1');

Уже выдает 0

procedure TForm1.Button1Click(Sender: TObject);
var
 h1,h2: Dword;
begin
h1:=FindWindow('TForm1', 'proga');
if h1<>0 then
begin
h2 := findwindowex(h1,0,'TsPageControl','PageControl1');
ShowMessage(IntToStr(h2));
end
else ShowMessage('Окно не найдено!!!');
end;

Выдает 0

[Пепел Феникса]

http://programmersforum.ru/showpost....83&postcount=8

[cashmail]

Скачал прогу, получилось как сказал Аватар

Там кнопка в TTabSheet, тот в свою очередь в TPageControl

Но его пример не работет