Delphi在WinForm窗口菜单中添加系统菜单项: procedure TForm1.user_sysmenu(var msg: twmmenuselect); begin if msg.iditem=101 then showmessage('响应系统菜单!') else inherited; //作缺省处理,必须调用这一过程 end; procedure TForm1.FormCreate(Sender: TObject); var Imenu:integer; begin Imenu:=getsystemmen