windows中的任务栏右键菜单

 

hm: HMENU; nStyle: integer; //BorderStyle:bsNone的情况下在任务栏右键点击也可以出现对话框[最小化] nStyle := GetWindowLong(Handle, GWL_STYLE); nStyle := nStyle or WS_SYSMENU or WS_MINIMIZEBOX; SetWindowLong(Handle, GWL_STYLE, nStyle); //删除任务栏右键菜单选项[移动、最大化、大小] hm := GetSystemMenu(Handle, False); DeleteMenu(hm, SC_MOVE, MF_BYCOMMAND); DeleteMenu(hm, SC_SIZE, MF_BYCOMMAND); DeleteMenu(hm, SC_MAXIMIZE, MF_BYCOMMAND); DeleteMenu(hm, SC_MINIMIZE, MF_BYCOMMAND);