Проблемы с FindWindowEx

[Slonnn]

Здравтвуйте, у меня какие-то проблемы с функцией FindWindowEx, не могу добраться до нужного дочернего окна сторонней программы. Добирается до первого дочернего окна, а потом возвращает ноль(((

Мне нужно добраться до TNewCaption Fruity Scratcher (Master) (см. рисунок)

Текст программы:

procedure TForm1.Button1Click(Sender: TObject);
var
  W1,W2,W3: HWND;
  begin

  W1 := FindWindow('TFruityLoopsMainForm', 'FL Studio');
  if W1 <> 0 then
  ShowMessage('Найдено главное окно')
  else
  ShowMessage('Не найдено главное окно');

  W2 := FindWindowEx(W1, 0, 'TWPControl', '');
  if W2 <> 0 then
  ShowMessage('Найдено первое дочернее окно')
  else
  ShowMessage('Не найдено первое дочернее окно');

  W3 := FindWindowEx(W2, 0, 'TPluginForm', 'Fruity Scratcher (Master)');
  if W3 <> 0 then
  ShowMessage('Найдено 2-е дочернее окно')
  else
  ShowMessage('Не найдено 2-е дочернее окно');
  
end;

Вот дерево окон.

[mihali4]

http://programmersforum.ru/showthrea...t=FindWindowEx
http://programmersforum.ru/showthrea...t=FindWindowEx
и так далее...
К вашему сведению, на форуме есть поиск. Достаточно ввести в строку поиска "FindWindowEx" и будете иметь доступ ко всем случаям обсуждения этой функции.

[Slonnn]

Я искал, кстати, но ответа не нашёл.

[mihali4]

Я бы, например, первым делом перебрал бы все компоненты на 'TPluginForm' и среди них искал бы нужный.
Дело в том (как мне кажется), что судя по приведенной картинке ваш 'TPluginForm' имеет капшен 'Fruity Scratcher (Master)'. И именно поэтому попытка W3 := FindWindowEx(W2, 0, 'TPluginForm', 'Fruity Scratcher (Master)'); не дает результата...

[Slonnn]

Не понял вас...
Так я же и говорю что на 'TPluginForm' он выдаёт ноль. Как я могу перебрать его элементы, если я даже не могу до него добраться?

[mihali4]

Значит, то же самое с последним найденным окном.
Вы бы скриншот самой программы привели. С дочками, естественно.

[Slonnn]

Вот скрин.

и? что можете сказать?

всё, разобрался сам, посидев 3 часа в поисковике.

[DomiNick]

всё, разобрался сам

Так может расскажешь?

Кто-нибудь будет искать по форуму, найдёт эту тему - и всё что он узнает, то что ты-таки разобрался...

И снова будут темы одинаковые плодить...

[Slonnn]

Мне нужно было добраться до TNewCaption

W1 := FindWindow('TFruityLoopsMainForm', 'FL Studio');
  if W1 <> 0 then
  ShowMessage('Найдено главное окно')
  else
  ShowMessage('Не найдено главное окно');

  W2 := FindWindowEx(W1, 0, 'TWPControl', '');
  if W2 <> 0 then
  ShowMessage('Найдено первое дочернее окно') else ShowMessage('Не найдено первое дочернее окно');

  W3 := FindWindowEx(W1, W2, 'TWPControl', nil);
  if W3 <> 0 then
  ShowMessage('Найдено 2-е дочернее окно') else ShowMessage('Не найдено 2-е дочернее окно');

  W4 := FindWindowEx(W1, W3, 'TWPControl', nil);
  if W4 <> 0 then
  ShowMessage('Найдено 3-е дочернее окно') else ShowMessage('Не найдено 3-е дочернее окно');

  W5 := FindWindowEx(W4, 0, 'TPluginForm', 'Fruity Scratcher (Master)');
  if W5 <> 0 then
  ShowMessage('Найдено 4-е дочернее окно') else ShowMessage('Не найдено 4-е дочернее окно');

  W6 := FindWindowEx(W5, 0, 'TNewCaption', 'Fruity Scratcher (Master)');
  if W6 <> 0 then
  ShowMessage('Fruity Scratcher запущен') else ShowMessage('Не запущен Fruity Scratcher!!!');

Чтобы не пладить новую тему, спрошу тут, т.к. это тоже касаемо FindWindowEx.

Не могу сделать активным найденное окно сторонней программы. Главное окно сделал активным так:

BringWindowToTop(W1);
где W1:HWND

Дочернее ни в какую.

Суть такая: при нажатии на запрограммированные горячие кнопки нужно сделать активной саму стороннюю программу, если она свёрнута, и открыть её дочернее окно.
Всё по тем же рисункам что и выше.

[mihali4]

А если через ShowWindow(W6, SW_SHOW) ? SW_SHOWNORMAL ?