屏蔽控件右键模块

.子程序 屏蔽控件右键, , 公开
.参数 控件句柄, 整数型

窗口信息 ＝ 设置窗口信息 (控件句柄, -4, 到数值 (&回调函数))

.子程序 回调函数, 整数型
.参数 窗口句柄, 整数型
.参数 消息值, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (消息值 ＝ 516)
返回 (0)
.如果真结束
返回 (呼叫窗口函数地址 (窗口信息, 窗口句柄, 消息值, 参数一, 参数二))