Mega Code Archive

 

Categories / Delphi / System

 

Remove items from the System Menu

Title: remove items from the System Menu? private procedure WMInitMenuPopup(var Msg: TWMInitMenuPopup); message WM_INITMENUPOPUP; {...} implementation {...} procedure TForm1.WMInitMenuPopup(var Msg: TWMInitMenuPopup); begin inherited; if Msg.SystemMenu then begin DeleteMenu(Msg.MenuPopUp, SC_SIZE, MF_BYCOMMAND); DeleteMenu(Msg.MenuPopUp, SC_MAXIMIZE, MF_BYCOMMAND); DeleteMenu(Msg.MenuPopUp, SC_MINIMIZE, MF_BYCOMMAND); DeleteMenu(Msg.MenuPopUp, SC_RESTORE, MF_BYCOMMAND); // DeleteMenu(msg.MenuPopUp, SC_MOVE, MF_BYCOMMAND); // DeleteMenu(msg.MenuPopUp, SC_CLOSE, MF_BYCOMMAND); DeleteMenu(Msg.MenuPopup, 0, MF_BYCOMMAND); end; end;