易语言菜单透明效果源码

系统结构:透明化菜单,HookCallWndProc,SubNewWndProc,CallNextHookEx,SetWindowsHookEx,GetWindowThreadProcessId,CallWindowProcA,CopyMemory,UnhookWindowsHookEx,GetClassName,SetWindowLong,SetProp,CallWindowProc,GetProp,SetLayeredWindowAttributes,GetWindowLong,SystemParametersinfo,GetVersionEx,

======窗口程序集1
           |  |
           |  |------ __启动窗口_鼠标右键被放开
           |  |
           |  |------ _这是条狗吗_被选择
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======菜单透明处理程序
           |  |
           |  |------ 透明化菜单
           |  |
           |  |------ HookCallWndProc
           |  |
           |  |------ SubNewWndProc
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   SetWindowsHookEx
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   UnhookWindowsHookEx
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   SetProp
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   GetProp
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   SystemParametersinfo
           |  |
           |  |---[dll]------   GetVersionEx

调用的DLL命令:

.DLL命令 CallNextHookEx, 整数型, "user32.dll", "CallNextHookEx", , CallNextHookEx
    .参数 钩子句柄, , , hHook
    .参数 代码值, , , ncode
    .参数 附加参数1, , , wParam
    .参数 附加参数2, , 传址, lParam

.DLL命令 SetWindowsHookEx, 整数型, "user32.dll", "SetWindowsHookExA", , SetWindowsHookEx
    .参数 钩子类型, , , idHook
    .参数 回调函数地址, , , lpfn
    .参数 实例句柄, , , hmod
    .参数 线程ID, , , dwThreadId

.DLL命令 GetWindowThreadProcessId, 整数型, "user32.dll", "GetWindowThreadProcessId", , GetWindowThreadProcessId，获取与指定窗口关联在一起的一个线程和进程标识符
    .参数 窗口句柄, , , hwnd，指定窗口句柄
    .参数 进程标识符, , , lpdwProcessId，指定一个变量，用于装载拥有那个窗口的一个进程的标识符

.DLL命令 CallWindowProcA, 整数型, "user32.dll", "CallWindowProcA"
    .参数 前一窗口函数地址
    .参数 窗口句柄
    .参数 消息值
    .参数 附加参数1
    .参数 附加参数2

.DLL命令 CopyMemory, , "kernel32", "RtlMoveMemory", , 钩子
    .参数 Destination, CWPSTRUCT
    .参数 Source
    .参数 cbCopy

.DLL命令 UnhookWindowsHookEx, 整数型, "user32.dll", "UnhookWindowsHookEx", , UnhookWindowsHookEx
    .参数 钩子句柄, , , hHook

.DLL命令 GetClassName, 整数型, "user32", "GetClassNameA"
    .参数 窗口句柄
    .参数 缓冲区, 文本型, 传址
    .参数 缓冲区长度

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, , , hwnd，欲为其取得信息的窗口的句柄
    .参数 窗口信息值, , , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息新值, , , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 SetProp, 逻辑型, , "SetPropA"
    .参数 hWnd
    .参数 lpString, 文本型
    .参数 hData

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA"
    .参数 前一窗口函数地址
    .参数 窗口句柄
    .参数 消息值
    .参数 附加参数1
    .参数 附加参数2

.DLL命令 GetProp, 整数型, , "GetPropA"
    .参数 hWnd
    .参数 lpString, 文本型

.DLL命令 SetLayeredWindowAttributes, 逻辑型, "user32", "SetLayeredWindowAttributes", , 成功返回真，否则返回假
    .参数 hwnd, 整数型, , 透明窗体的句柄
    .参数 crKey, 整数型, , 颜色值
    .参数 bAlpha, 字节型, , 透明度，取值范围是[0,255]
    .参数 dwFlags, 整数型, , 透明方式：LWA_ALPHA(2)时，crKey参数无效，bAlpha参数有效 || LWA_COLORKEY(1)时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息  由nIndex决定。零表示出错。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

.DLL命令 SystemParametersinfo, 逻辑型, "user32", "SystemParametersInfoA"
    .参数 uiAction
    .参数 uiParam
    .参数 pvParam, , , 明明是指针，为什么勾选传址不行呢？
    .参数 fWinlni

.DLL命令 GetVersionEx, 逻辑型, "kernel32", "GetVersionExA"
    .参数 lpVersionInformation, OSVERSIONINFO