如何取得外部程序菜单下面子菜单的子菜单中的某一项呢? ( 积分: 8 )

  • 主题发起人 主题发起人 lkdbdlkq
  • 开始时间 开始时间
L

lkdbdlkq

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
Var
wh, mh : thandle;
id : word;
begin
wh := findwindow(nil, 'Adobe Premiere');
if wh<> 0 then
begin
mh := GetMenu(wh);
mh := GetSubMenu(mh, 0); //取得帮助菜单句柄
id := GetMenuitemID(mh, 8); //取得关于菜单的ID
SendMessage(wh, WM_COMMAND, MAKEWPARAM(id, 0),0);
end;
end;

这是看到网友的一个贴子,可是假如关于子菜单也下还有下一级菜单,那么如何实现点击其下一级菜单的某一项呢?
 
接受答案了.
 
后退
顶部