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;
这是看到网友的一个贴子,可是假如关于子菜单也下还有下一级菜单,那么如何实现点击其下一级菜单的某一项呢?
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;
这是看到网友的一个贴子,可是假如关于子菜单也下还有下一级菜单,那么如何实现点击其下一级菜单的某一项呢?