使用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;