禁用编辑框菜单键

lpPrevWndFunc ＝ SetWindowLongA (编辑框1.取窗口句柄 (), -4, 到整数 (&WndFunc))

.子程序 WndFunc, 整数型
.参数 hwnd
.参数 msg
.参数 wp
.参数 lp

.如果真 (msg ＝ 123)
返回 (0)
.如果真结束
返回 (CallWindowProcA (lpPrevWndFunc, hwnd, msg, wp, lp))