windows中的工作列右鍵菜單

 

hm: HMENU;<br /> nStyle: integer;</p><p> //BorderStyle:bsNone的情況下在工作列右鍵點擊也可以出現對話方塊[最小化]<br /> nStyle := GetWindowLong(Handle, GWL_STYLE);<br /> nStyle := nStyle or WS_SYSMENU or WS_MINIMIZEBOX;<br /> SetWindowLong(Handle, GWL_STYLE, nStyle);<br /> //刪除工作列右鍵菜單選項[移動、最大化、大小]<br /> hm := GetSystemMenu(Handle, False);<br /> DeleteMenu(hm, SC_MOVE, MF_BYCOMMAND);<br /> DeleteMenu(hm, SC_SIZE, MF_BYCOMMAND);<br /> DeleteMenu(hm, SC_MAXIMIZE, MF_BYCOMMAND);<br /> DeleteMenu(hm, SC_MINIMIZE, MF_BYCOMMAND);