本例效果图:

---

本例使用的资源文件(TestRes.rc):

---

MyMenu1 MENUEX
BEGINMENUITEM "Open"  ,101MENUITEM "Old"   ,102MENUITEM "Help"  ,103
END

本例代码文件:

---

program Project1;{$R 'TestRes.res' 'TestRes.rc'}usesWindows, Messages;const IDM_New = 202; {常量将作为修改后的菜单的标识}{收到 WM_COMMAND 消息时需要做的工作}
procedure OnCommand(h: HWND; wParam: Integer);
varw: Word;
beginw := LoWord(wParam);case w of102: begin  {102 是在资源文件中指定的菜单标识}ModifyMenu(GetMenu(h), w, 0, IDM_New, 'New!');DrawMenuBar(h);end;IDM_New: MessageBox(h, '我是新来的', '', 0);end;
end;function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;
beginResult := 0;case msg ofWM_COMMAND : OnCommand(wnd, wParam); {收到 WM_COMMAND 消息后调用 OnCommand 过程}WM_DESTROY : PostQuitMessage(0);elseResult := DefWindowProc(wnd, msg, wParam, lParam);end;
end;function RegMyWndClass: Boolean;
varcls: TWndClass;
begincls.style         := CS_HREDRAW or CS_VREDRAW;cls.lpfnWndProc   := @WndProc;cls.cbClsExtra    := 0;cls.cbWndExtra    := 0;cls.hInstance     := HInstance;cls.hIcon         := 0;cls.hCursor       := LoadCursor(0, IDC_ARROW);cls.hbrBackground := HBRUSH(COLOR_WINDOW + 1);cls.lpszMenuName  := 'MyMenu1';cls.lpszClassName := 'MyWnd';Result := RegisterClass(cls) <> 0;
end;{程序入口}
consttit = 'New Form';ws = WS_OVERLAPPEDWINDOW;x = 100; y = 100; w = 300; h = 180;
varhWnd: THandle;Msg : TMsg;
beginRegMyWndClass;hWnd := CreateWindow('MyWnd', tit, ws, x, y, w, h, 0, 0, HInstance, nil);ShowWindow(hWnd, SW_SHOWNORMAL);UpdateWindow(hWnd);while(GetMessage(Msg, 0, 0, 0)) dobeginTranslateMessage(Msg);DispatchMessage(Msg);end;
end.