Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Toolbar-меню в чужом приложении [D7, WinXP]


Stas_Kalishenko ©   (2006-02-06 13:11:00) 

Помогите разобраться со следующим: необходимо из своего приложения запускать в чужом приложении (в Corel 12) пункты меню. В частности в меню "File" -> "Send To". Трудность в том, что меню File - не просто меню, а тулбар, и функции по работе с меню здесь есс-но не работают. Как быть? Если можно, с примерами.


Stas_Kalishenko   (2006-02-08 10:10:00) [1]

Получилось добраться до этого меню обычным keybd_Event-ом, т.е. перемещаться по нему получилось. Только можно ли вытянуть название пунктов этого меню, чтобы отловить нужный пункт?


Stas_Kalishenko   (2006-02-07 17:57:00) [2]

Не получается даже сэмулировать нажатие клавиш, т.е. при нажатии Alt ничего не происходит. Вот простейший код, который по-идее должен работать на ура

WHandle := Find2Window('CorelDRAW'); //функция поиска окна по части caption-а
windows.BringWindowToTop(WHandle);
SendMessage(WHandle,WM_KEYDOWN,VK_MENU,0);
Sleep(100);
SendMessage(WHandle,WM_KEYUP,0,0);
Sleep(100);

Что я не так делаю?


Stas_Kalishenko   (2006-02-07 09:15:00) [3]

Неужели никто с подобным не сталкивался? Не верю. :)


Stas_Kalishenko   (2006-02-06 19:37:00) [4]

Странно, но
PostMessage(Wd,WM_CLOSE,0, 0);
срабатывает, т.е. меню исчезает, а
SendMessage(Wd,WM_SETFOCUS,0,0);
PostMessage(Wd,WM_KEYDOWN,VK_RETURN, 0);
ничего не делает.


Stas_Kalishenko   (2006-02-06 19:03:00) [5]

Получил хендл этого меню-бара, могу закрыть его, а как нажать, т.е. выбрать, на его элементах?


Stas_Kalishenko   (2006-02-06 18:58:00) [6]

Если это поможет, то этот тулбар - Menu Bar.


Наверх

Титульная страница Поиск, карта сайта Написать письмо