自定义系统菜单

procedure SysMenuCommand(var Msg:TWMMENUSELECT);message WM_SYSCOMMAND;procedure TFormMain.SysMenuCommand(var Msg: TWMMenuSelect);
begincase Msg.IDItem of0:beginMessageBox(0,PChar('茶杯'),'操作提示',MB_OK+MB_ICONINFORMATION);end;1:beginMessageBox(0,PChar('书本'),'操作提示',MB_OK+MB_ICONINFORMATION);end;2:beginMessageBox(0,PChar('Notice'),'操作提示',MB_OK+MB_ICONINFORMATION);end;3:beginMessageBox(0,PChar('Next'),'操作提示',MB_OK+MB_ICONINFORMATION);end;end;Inherited;
end;procedure TFormMain.FormCreate(Sender: TObject);mybit:=TBitmap.Create;mybit.LoadFromFile('F:\1.bmp');Self.Brush.Bitmap:=mybit;Self.Invalidate;
end;procedure TFormMain.FormShow(Sender: TObject);
varhSysMenu:hMENU;i:integer;
beginhSysMenu:=GetSystemMenu(Handle,False);//得到系统菜单句柄//通过位置删除for i := 0 to 9 doDeleteMenu(hSysMenu, 0, MF_BYPOSITION);//通过命令删除{DeleteMenu(hSysMenu, SC_TASKLIST, MF_BYCOMMAND);DeleteMenu(hSysMenu, SC_CLOSE, MF_BYCOMMAND);DeleteMenu(hSysMenu, SC_MOVE, MF_BYCOMMAND);DeleteMenu(hSysMenu, SC_MAXIMIZE, MF_BYCOMMAND);DeleteMenu(hSysMenu, SC_MINIMIZE, MF_BYCOMMAND);DeleteMenu(hSysMenu, SC_SIZE, MF_BYCOMMAND);DeleteMenu(hSysMenu, SC_RESTORE, MF_BYCOMMAND); }//添加新命令AppendMenu(hSysMenu,MF_STRING and MF_BITMAP,0,'茶杯');AppendMenu(hSysMenu,MF_STRING,1,'书本');AppendMenu(hSysMenu,MF_STRING,2,'Notice');AppendMenu(hSysMenu,MF_STRING,3,'Next');//菜单右对齐ModifyMenu(Menu.Handle,1,MF_BYPOSITION or MF_HELP,N2.Handle,PChar(N2.Caption));
end;