|
#1
|
|||
|
|||
Чужое меню
Привет всем!
Возникла проблема, при работе с чужим окном. Есть в нем меню, до определенного его пункта я добрался, могу послать ему сообщение. Вопрос в том как узнать его caption или Enabled: true/false. Вот код для получения хендла нужного мне подпункта меню: Код:
wnd:=FindWindow(nil, PHCaption); cwnd:=GetMenu(wnd); imenu:=GetSubMenu(cwnd,2); imenu:=GetMenuItemID(imenu,1); Как быть дальше? Как получить его Кепшен? спасибо, заранее за советы. Последний раз редактировалось Admin, 16.04.2009 в 14:23. |
#2
|
||||
|
||||
напримет так:
Код:
procedure TForm1.Button1Click(Sender: TObject); var Buf: array[0..255] of Char; imenu: HMENU; wnd: HWND; begin wnd:= FindWindow(nil, 'Безымянный - Блокнот'); if wnd = 0 then exit; imenu:= GetMenu(wnd); imenu:= GetSubMenu(imenu, 0); GetMenuString(imenu, 2, buf, SizeOf(buf), 0); ShowMessage(buf); end; Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
#3
|
|||
|
|||
Очень спасибо, действительно помогло
|