使用delphi影藏另外一个软件的菜单

最新推荐文章于 2021-03-17 08:47:16 发布

weixin_33716941

最新推荐文章于 2021-03-17 08:47:16 发布

阅读量63

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/shenzhenhua/p/5117535.html

本文介绍了一种使用Delphi代码修改正在运行的微软计算器程序菜单栏的方法。通过查找计算器窗口句柄，获取并修改其菜单项，实现了删除特定菜单项的功能。

下面就拿微软的计算器来举例
procedure TForm3.Button1Click(Sender: TObject);
var
  CalcHnd:HWND;
  MenuHnd:HWND;
begin
  CalcHnd:=FindWindow(nil,'计算器');

if CalcHnd>0 then
begin
  MenuHnd:=GetMenu(CalcHnd);
  EnableMenuItem(MenuHnd,0,MF_BYPOSITION or MF_ENABLED);
  EnableMenuItem(MenuHnd,1,MF_BYPOSITION or MF_ENABLED);
  EnableMenuItem(MenuHnd,2,MF_BYPOSITION or MF_ENABLED);
  DeleteMenu(MenuHnd,2,MF_BYPOSITION);
  DrawMenuBar(CalcHnd);
  DeleteMenu(MenuHnd,1,MF_BYPOSITION);
  DrawMenuBar(CalcHnd);
  DeleteMenu(MenuHnd,0,MF_BYPOSITION);
  DrawMenuBar(CalcHnd);
end
else
  ShowMessage('没有找到运行中的计算器程序！');

end;