простой вопрос по меню

knower · **Добавлено:** Пт дек 08, 2017 8:39 pm

Здравствуйте.
Не получается вызвать пункт системного меню окна. Подскажите, что не так?

Код:

1
2
3
4
5
6
7
8
9
10
hWnd = FindWindow_("TTOTAL_CMD", 0)
hMnu = GetSystemMenu_(hWnd, #False)
idMnuMove = GetMenuItemID_(hMnu, 1)
 
;для проверки, что выбран нужный пункт меню
Text$ = Space(#MAX_PATH)
GetMenuString_(hMnu,1,@Text$,#MAX_PATH,#MF_BYPOSITION)
Debug Text$
 
PostMessage_(hWnd, #WM_COMMAND, idMnuMove, 0)

repeat · **Добавлено:** Сб дек 09, 2017 4:54 am

Оно?

Код:

1
2
3
;Инструменты-> список команд ТС...
hWnd.l = FindWindow_("TTOTAL_CMD", 0)
PostMessage_(hWnd, #WM_USER+51, 1005, 0)

knower · **Добавлено:** Сб дек 09, 2017 8:00 am

repeat, спасибо большое, пригодится. Полезная информация. Но это немного не то, о чём спрашивал. Total Commander это всего лишь окно для примера. С таким же успехом могло выступать, например окно проводника или любое другое, у которого это меню не выключено. Мне нужно программно вызвать пункт системного меню "переместить". При этом не показывая сам процесс (появление меню). Это как если бы последовательно слать в окно сочетание "Alt + пробел" -> курсор "down" -> "Enter". Вот этого хотелось избежать.

Так понял 1005 здесь подсмотрели. А 51 откуда?

repeat · **Добавлено:** Сб дек 09, 2017 9:23 am

knower писал(а):

А 51 откуда?

вот
И, где-то на забугорных форумах было. Теперь ясно что требуется. Попробуйте еще так:

Код:

1
PostMessage_(hWnd, #WM_SYSCOMMAND, idMnuMove, 0)

knower · **Добавлено:** Сб дек 09, 2017 9:40 am

repeat, спасибо большое. Теперь то, что надо. Работает!
Именно так, как хотел. Прицельно бьём по меню.

purebasic.info

простой вопрос по меню

Кто сейчас на форуме