Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> работа с чужими окнами 
:(
    Опции темы
SULLEN_27
Дата 27.9.2012, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 9.2.2008

Репутация: нет
Всего: -2
Доброго дня! Имеется код программы для работы с чужими окнами приложения!

Код

NPadHandle: HWND;  
  NPadMenu, NPadSubMenu: HMENU; 
 h:hwnd;
begin
   // секция 1 - вызывает определенный пункт меню в главном меню стороннего приложения и следом вызывается диалоговое окно
    NPadHandle := FindWindow('tmonitorform',nil);
    NPadMenu := GetMenu(NPadHandle);
    NPadSubMenu := GetSubMenu(NPadMenu, 0);
    SendMessage(NPadHandle, WM_COMMAND, GetMenuItemId(NPadSubMenu, 11), 0);
    

   
// секция -2 нажать Enter на кнопке в диалоговом окне
   h:=findwindow('tmessageform',nil);
    SendMessage(h,WM_SYSCOMMAND, SC_HOTKEY, h);
    keybd_event(VK_RETURN,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
    keybd_event(VK_RETURN,0,KEYEVENTF_EXTENDEDKEY,0);
    keybd_event(VK_RETURN,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);

Так вот, проблема в том что если использовать весь этот код и 1 и 2 секцию программы одновременно, то происходит, что пункт меню нужный вызывается все прекрасно и вызывается диалоговое окно следом, типа подтвердить в котором требуется нажать Enter по кнопке, а вот 2-ая секция приложения не срабатывает и тем более окно мое из под Delphi приложения становится неактивным, пока не нажмешь какую либо кнопку в диалоговом окне. А если использовать отдельно 2-ую секцию кода то все прекрасно работает, т.е. я сам ручками вызвал диалоговое окно и использовал 2-ую секцию кода то все прекрасно кнопка жмется в этом диалоговом окне. В чем беда? такое ощущение  что когда первая секция кода выполняется она держит это приложение  и ничего дальше сделать с ним нельзя. Помогите пожалуйста разобраться.
PM MAIL   Вверх
Delvish
Дата 27.9.2012, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


oO
*


Профиль
Группа: Участник
Сообщений: 136
Регистрация: 13.12.2006

Репутация: 2
Всего: 4
http://forum.vingrad.ru/index.php?showtopi...t&p=2515798
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0535 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.