Не срабатывает функция FindWindowEx, в чем причина?

[DpolenST]

Сообщение от adkomissarov

Помогите на примере этого окна найти дочернее окно с кнопкой через Spy++?

запускаешь spy++ жмешь Alt+F3, хватаешь и переносишь указатель из spy++ на свое приложение, жмешь ОК

[NIKOLAYY2]

adkomissarov

Ты не тот скрин дал, я хотел само дерево окон твоего инсталятора посмотреть.
Вот как на скрине я сделал, чтобы все ветки нужного дерева были раскрыты.

[adkomissarov]

Сообщение от NIKOLAYY2

adkomissarov
Ты не тот скрин дал, я хотел само дерево окон твоего инсталятора посмотреть.
Вот как на скрине я сделал, чтобы все ветки нужного дерева были раскрыты.

Пришлю чуть позже, как буду дома на обеде. А что за программа это у тебя? Я поставил Spy++, но интерфейс твоей софтинки будет попривлекательнее.

kropotkina-alice
Спасибо, я посмотрю обязательно.

Сообщение от NIKOLAYY2

adkomissarov
.... я хотел само дерево окон твоего инсталятора посмотреть.
Вот как на скрине я сделал, чтобы все ветки нужного дерева были раскрыты.

Вот, с программы Spy++
Screenshot_1.jpg

[adkomissarov]

Нет никаких соображений?

[DpolenST]

Сообщение от adkomissarov

Нет никаких соображений?

procedure TForm1.Button1Click(Sender: TObject);
var
h1:HWND;
h2:HWND;
h3:HWND;
begin
WinExec('c:\777.exe', SW_SHOW);
h1 := FindWindow ('#32770', 'Установка программы "CheсkXML"');
if  h1<> 0  then h2 := FindWindowEx(h1, 0,'#32770', 0);
if  h2<> 0  then h3 := FindWindowEx(h2, 0,'Button', '&Далее >');
SendMessage(h3,BM_CLICK,0,0);
end;

как-то так... не проверял, просто отредактировал ваш код

[NIKOLAYY2]

adkomissarov
У меня программа "InqSoft Window Scanner".
Она тоже что и Spy++, но она чуть чуть больше может.
С помощью нее можно указать какому окну и какое сообщение ты послать хочеш.
То есть с помощью InqSoft Window Scanner программы ты и сможеш нажать кнопку,
а если тебе не удасться, то и на делфи собирать код уже и небудет иметь смысла.

Узнай через SendMessage видит ли твоя программа хотя бы второе дочернее окно.
Пробуй тот код что тебе дали, поробуй в этом месте '&Далее >' пробел убрать и снова запустить.

[adkomissarov]

DpolenST
получилось, только вот я не смог заставить включиться со строчкой

 h1 := FindWindow ('#32770', 'Установка программы "CheсkXML"');

У меня в названии окна вместо ковычек стоят апострофы и delphi ругалась на двойные апострофы, заменил на строчку

h1 := FindWindow ('#32770', nil);

и все стало нормально. Спасибо большое.

Сообщение от DpolenST

как-то так... не проверял, просто отредактировал ваш код

все работало нормально, просто в один прекрасный момент отказало и все, теперь кнопка не жмется, создавал проект по новой, не помогает, ерундень какая-то

[DpolenST]

все работало нормально, просто в один прекрасный момент отказало и все, теперь кнопка не жмется, создавал проект по новой, не помогает, ерундень какая-то

Сообщение от adkomissarov

DpolenST
получилось, только вот я не смог заставить включиться со строчкой

 h1 := FindWindow ('#32770', 'Установка программы "CheсkXML"');

У меня в названии окна вместо ковычек стоят апострофы и delphi ругалась на двойные апострофы, заменил на строчку

h1 := FindWindow ('#32770', nil);

и все стало нормально. Спасибо большое.

у вас может быть несколько таких окон, какие-то из них могут быть скрыты, так что не известно к какому окну в итоге вы можете обратиться

попробуйте так

h1 := FindWindow ('#32770', 'Установка программы \"CheсkXML\"');

Хотя, в принципе и в этом случае могут остаться скрытые не закрытые копии этого окна.

[adkomissarov]

Сообщение от DpolenST

попробуйте так

Не срабатывает, у меня название окна "Установка программы 'CheckXML'", возможно ли как-нибудь заставить искать по первым словам названия окна? Например по "Установка программы"?

[DpolenST]

Сообщение от adkomissarov

Не срабатывает, у меня название окна "Установка программы 'CheckXML'"

я спутал с с++, для экранирования одинарной ковычки внутри строки используй еще одну ковычку перед каждой:

h1 := FindWindow ('#32770', 'Установка программы ''CheсkXML''');

Сообщение от adkomissarov

возможно ли как-нибудь заставить искать по первым словам названия окна? Например по "Установка программы"?

можно, но придется пройтись по всем окнам (с помощью EnumWindows) и проверить заголовок каждого, хотя плюсом при этом может стать то, что можно будет у каждого найденного окна проверить его видимость (с помощью IsWindowVisible), размеры (GetWindowRect) и др.