Работа с чужим окном

[progzero]

Здравствуйте! Есть чужое окно, его дескриптор я нашел. На этом окне размещены панели, которые в свою очередь выступают кнопками (их дескрипторы я тоже нашел). При нажатии определенной панели выскакивает меню. Мне нужно автоматизировать открытие тех или иных пунктов меню. Посылаю на кнопку (TPanel)

SendMessage(newbutton,WM_LBUTTONDOWN,0,0);

Открывается меню (его дескриптор получить не могу) в spy++ это меню имеет класс #32768.

Задача такая нужно получить дескриптор меню (а он постоянно всегда новый) и нажать любую кнопку в этом меню. Помогите разобраться.

[Sibedir]

Плохой ответ
Еще студентами пытались как-то управлять сторонним приложением и въехали в тот же пень. Кнопочки основного окна нажимались на ура. А вот с всплывающими окнами возникли какие-то проблемы. До конца мы программу не доделали (это было больше похоже на эксперементы по программированию (программирование не наш основной профиль (мы строители-проектировщики), поэтому нам давали только азы)), но помню, что проблема решалась имтацией нажатия клавишь. Т.е. мы знали, сколько раз нужно нажать [TAB], чтобы попасть на нужную кнопку или edit в открывшемся окне. И симитировав нажатие этого самого [TAB] нужное количество раз получали фокус в нужном месте. Далее по аналогии.
Кстати, этот метод удачен тем, что при обновлении нашей программы (это был, кстати, SCAD) на новую версию, ее внешний интерфейс оставался почти не изменным. А вот дискрипторы могут изменится очень сильно. Например, если написанную на D7 программу собрать на XE, думаю все дискрипторы придется определять заново.
А плох этот метод всем остальным. Например кучей эмперических Sleep'ов.

[Stilet]

Раньше использовал такое:

 // Кликает по Менюхе в окне
 function Click_MainMenu_item(Form: Thandle; NumMenu:integer=0;
   NumItem:integer=0):variant;
var hm:Hmenu;  i, idmen:integer;
begin

hm:=GetMenu(form);
hm:=GetSubMenu(hm,NumMenu);
idMen:=GetMenuItemID(hm,NumItem);
if idMen<>0 then
 PostMessage(form,WM_COMMAND,idMen,0);
result:=idmen;
end;

[progzero]

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

Раньше использовал такое:

 // Кликает по Менюхе в окне
 function Click_MainMenu_item(Form: Thandle; NumMenu:integer=0;
   NumItem:integer=0):variant;
var hm:Hmenu;  i, idmen:integer;
begin

hm:=GetMenu(form);
hm:=GetSubMenu(hm,NumMenu);
idMen:=GetMenuItemID(hm,NumItem);
if idMen<>0 then
 PostMessage(form,WM_COMMAND,idMen,0);
result:=idmen;
end;

Это конечно прекрасно, но как узнать дескриптор в этом случае? Всплывающее меню в Spy++ не относится к приложению (не является дочерним).

[Stilet]

Всплывающее меню в Spy++ не относится к приложению

А при чем тут оно? Тебе нужно узнать дескриптор главного окна, к которому это меню прикреплено, о чем и говорит параметр Form: Thandle

[progzero]

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

А при чем тут оно? Тебе нужно узнать дескриптор главного окна, к которому это меню прикреплено, о чем и говорит параметр Form: Thandle

Дескриптор главного окна я знаю, если применить GetMenu(form) значение возвращаемое будет равно 0. Поэтому и предполагаю, что это меню всплывающее не прикреплено к главной форме, а создается динамически, т.к. в Spy++ его под главной формой нету, а висит в корне под рабочим столом с классом #32768 и его дескриптор меняется каждый раз при открытии.

[progzero]

Так есть у кого-нибудь идеи или готовые решения? Может кто-нибудь мне помочь?

[Stilet]

У меня нет. Я все что знаю о меню сказал. Если это какое-то popup меню, то тут я ничего не скажу.

[Iron Monk]

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

Так есть у кого-нибудь идеи или готовые решения? Может кто-нибудь мне помочь?

Скажи, какая программа - возможно появится решение.