Получение описателя в меню

← →
Hadroran (2005-11-17 16:15) [0]

Уважаемые мастера.
Приведенный ниже пример помогает нажать на пункт меню File-Open.
Hnd:=FindWindow(nil, "Delphi 6-Project1"); if Hnd <> 0 then begin windows.SetForegroundWindow(Hnd); HndMen:=GetMenu(Hnd); HndSMen:=GetSubMenu(HndMen,0); idMen:=GetMenuItemID(HndSMen,1); if idMen <> 0 then begin PostMessage(Hnd,WM_COMMAND,idMen,0);
Вопрос: А как нажать к примеру на File-New-Application?

Заранее спасибо.

← →
Hadroran (2005-11-18 08:47) [1]

Люди плиз. помогите. :)

← →
Ботвин Дмитрий (2005-11-18 10:25) [2]

Наверно, проще через keybd_event

← →
Ботвин Дмитрий (2005-11-18 10:30) [3]

А что GetSubMenu разве не позволяет организовать прохождение по
вложеннем подменю?

← →
Ботвин Дмитрий (2005-11-18 11:27) [4]

Вот так будет в твоём случае:

Hnd:=FindWindow(nil, "Delphi 6-Project1");
if Hnd <> 0 then
begin
SetForegroundWindow(Hnd);
HndMen:=GetMenu(Hnd);
HndSMen:=GetSubMenu(HndMen,0);
HndSMen:=GetSubMenu(HndSMen,0);
idMen:=GetMenuItemID(HndSMen,0);
if idMen <> 0 then PostMessage(Hnd,WM_COMMAND,idMen,0);
end;

← →
Hadroran (2005-11-19 10:20) [5]

Спасибо. Все получилось :)

Получение описателя в меню Найти похожие ветки