怎样在程序任务条菜单上添加新菜单?

Question

看看如下的代码，具体的修改我想只要取得了菜单的句柄，其他的一切都好办：
InsertMenu(GetSystemMenu(Application.Handle, False), 0, MF_BYPOSITION + MF_STRING, 0, 'test'); 

Answer 1

//小弟来矣有增有删试试吧！！
//声明
procedure MYmenu(var msgx:TWMSYSCOMMAND);message WM_SYSCOMMAND;
//在Create加入
procedure TForm1.FormCreate(Sender: TObject);
var
  sysmenu:HMENU;
begin
  sysmenu:=getsystemmenu(handle,false);
  //我删
  DeleteMenu(SysMenu, SC_TASKLIST, MF_BYCOMMAND);
  DeleteMenu(SysMenu, 7, MF_BYPOSITION);
  DeleteMenu(SysMenu, 5, MF_BYPOSITION);
  DeleteMenu(SysMenu, SC_MAXIMIZE, MF_BYCOMMAND);
  DeleteMenu(SysMenu, SC_MINIMIZE, MF_BYCOMMAND);
  DeleteMenu(SysMenu, SC_SIZE, MF_BYCOMMAND);
  DeleteMenu(SysMenu, SC_RESTORE, MF_BYCOMMAND);
  DeleteMenu(SysMenu, SC_Close, MF_BYCOMMAND);
  DeleteMenu(SysMenu, SC_Move, MF_BYCOMMAND);
  //我加
  appendmenu(sysmenu,MF_SEPARATOR,0,'');
  appendmenu(sysmenu,MF_STRING,SC_mymenu,pchar('关于(&A)'));
  application.onhint:=myhint;
 
end;
//响应自已的菜单
procedure TFORM1.mymenu(var msgx:TWMSYSCOMMAND);
begin
  case msgx.CmdType of
    SC_MYMENU:
    begin
      showmessage('我加的关于！');
      beep;
    end;
    else
      inherited;
  end;
end;