系统任务栏的编程(50分)

一般的程序在写好后在任务栏标题上右键单击时的菜单只有还原、最小化和关闭，怎样才能添加其他的菜单，如移动、大小...等？

你看一下GetSystemMenu这个Api的 帮助，就知道了

procedure user_sysmenu(var msg: twmmenuselect); message wm_syscommand;

procedure TForm1.User_Sysmenu(var msg: TWMMENUSELECT);
begin
if Msg.Iditem = 100 then
ShowMessage('响应系统菜单!')
else
inherited; {作缺省处理,必须调用这一过程}
end;

procedure TForm1.FormCreate(Sender: TObject);
var
hMenu: integer;
begin
hMenu := GetSystemMenu(Handle, False); {获取系统菜单句柄}

AppendMenu(hmenu, MF_SEPARATOR, 0, nil);
AppendMenu(hmenu, MF_STRING, 100, '加入系统菜单'); {加入用户菜单}
end;

gz

多人接受答案了。