易语言窗口菜单句柄问题

mefcl · 发表于 2010-7-15 19:08:37

在易语言的程序窗口菜单下加一个关于菜单，有朋友给了我段代码。
但无奈技术差看不懂。

-
谁能给我个完整的程序或者帮忙补充下这段代码，包括 dll命令
-
代码：

.版本 2
.支持库 spec

.程序集窗口程序集1
.程序集变量 MsgShellHook
.程序集变量 lpPrevWndProc

.子程序 __启动窗口_创建完毕
.局部变量菜单句柄
.局部变量 sss, 文本型

sss ＝ “关于窗口”
开始拦截 ()
菜单句柄＝ API_取系统菜单句柄 (_启动窗口.取窗口句柄 (), 0)
API_添加菜单项 (菜单句柄, 2048, 0, 0)  ' 加入分隔条  MF_SEPARATOR  常量为 0x800
API_添加菜单项 (菜单句柄, 0, 666, 取变量数据地址 (sss))
' 子程序1 ()

.子程序子程序1

信息框 (“关于窗口”, 0, “关于”)

.子程序开始拦截

MsgShellHook ＝ API_RegisterWindowMessage (“SHELLHOOK”)
API_RegisterShellHookWindow (取窗口句柄 ())
lpPrevWndProc ＝ API_SetWindowLong (取窗口句柄 (), -4, 到整数 (&回调函数))

.子程序回调函数, 整数型
.参数 Hwnd
.参数 uMsg
.参数 wParam
.参数 Param

' 调试输出 (uMsg)
.判断开始 (uMsg ＝ 274)
.判断开始 (wParam ＝ 666)  ' 菜单
      ' API_GetWindowThreadProcessId (Param, id)
      子程序1 ()

.默认

.判断结束

.默认

.判断结束

返回 (API_CallWindowProc (lpPrevWndProc, Hwnd, uMsg, wParam, Param))

.子程序 __启动窗口_将被销毁

API_SetWindowLong (取窗口句柄 (), -4, lpPrevWndProc)

temp0123 · 发表于 2010-7-15 19:08:38

temp0123.rar (4.02 KB, 下载次数: 165)

		自动登录	找回密码
密码			注册

[已解决] 易语言窗口菜单句柄问题

最佳答案