Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.044 c