自绘窗口标题栏画菜单

.如果真 (msg ＝ #WM_NCPAINT 或 msg ＝ #WM_ACTIVATEAPP 或 msg ＝ #WM_NCHITTEST 或 msg ＝ #WM_SIZE 或 msg ＝ #WM_QUERYOPEN 或 msg ＝ #WM_PAINT)
画菜单 ()
.如果真结束
.如果真 (msg ＝ #WM_NCLBUTTONDOWN 且 是否在菜单上 () ＝ 真)
画菜单 (1)
弹出菜单 (菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())
.如果真结束
.如果真 (msg ＝ #WM_NCMOUSEMOVE 且 是否在菜单上 () ＝ 真)
画菜单 (1)
.如果真结束
返回 (CallWindowProcA (lhwnd, hwnd, msg, a, s))