1.1 系统菜单项修改

unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private procedure sysmenu(var msg: twmmenuselect);message wm_syscommand; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i:Integer; begin i:=GetSystemMenu(Handle,False); AppendMenu(i,MF_SEPARATOR,0,nil); //添加分割线 AppendMenu(i,MF_STRING,100,'我的菜单(&E)'); //添加菜单项 DeleteMenu(i,SC_MOVE,0); //s删除菜单项 end; procedure TForm1.sysmenu(var msg:TWMMenuSelect); begin if msg.IDItem=100 then ShowMessage('您选择了自己添加的菜单!') else inherited; end; end. 

{注释a}function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT;

uFlags:标志位,可以是, MF_OWNERDRAW, MF_STRING, MF_SEPARATOR, MF_POPUP

NIDNewItem:菜单项目的ID,如果Nflags设置为MF_POPUP,那么就是子菜单的句柄,如果是MF_SEPARATOR,就突列.

LpszNewItem:新菜单项的内容

{注释b}function DeleteMenu(hMenu: HMENU; uPosition, uFlags: UINT): BOOL; stdcall;

uPosition:

SC_CLOSE　　　　　　　 关闭窗口

SC_HOTKEY 　　　　　　 Activate the window associated with the application-specified hot key. 
SC_HSCROLL 　　　　　　Scroll horizontally. 
SC_KEYMENU　　 　　　　Retrieve a menu through a keystroke. 
SC_MAXIMIZE          　最大化窗口
SC_MINIMIZE            最小化窗口. 
SC_MOUSEMENU 　　　　  Retrieve a menu through a mouse click. 
SC_MOVE 　　　　　　　 移动窗口. 
SC_NEXTWINDOW 　　　　 Move to the next window. 
SC_PREVWINDOW 　　　　 Move to the previous window. 
SC_RESTORE 　　 　　　 Save the previous coordinates (checkpoint). 
SC_SCREENSAVE  　　　　激活屏幕保护程序. 
SC_SIZE 　　　　　　　 大小. 
SC_TASKLIST            激活开始菜单. 
SC_VSCROLL             Scroll vertically. 
SC_MONITORPOWER 　　　 关闭显示器(LPARAM为非0参数)
SC_SEPARATOR 
SC_CONTEXTHELP 　　　　显示帮助
SC_DEFAULT