易语言窗口动态挂接事件源码

系统结构:事件子程序,事件进程,设置事件,销毁事件句柄,当前线程标志符_,取当前进程标识符_,取当前线程伪句柄_,取当前进程伪句柄_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 事件子程序
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 事件进程
           |  |
           |  |------ _打开_被选择
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   设置事件
           |  |
           |  |---[dll]------   销毁事件句柄
           |  |
           |  |---[dll]------   当前线程标志符_
           |  |
           |  |---[dll]------   取当前进程标识符_
           |  |
           |  |---[dll]------   取当前线程伪句柄_
           |  |
           |  |---[dll]------   取当前进程伪句柄_

调用的DLL命令:

.DLL命令 设置事件, 整数型, , "SetWinEventHook"
    .参数 事件下限, 整数型
    .参数 事件上限, 整数型
    .参数 事件窗口句柄, 整数型, , DLL的句柄包含在lpfnWinEventProc钩子函数，如果WINEVENT_INCONTEXT标记在dwFlags参数中指定。如果钩子函数不是位于一个DLL，或者如果WINEVENT_OUTOFCONTEXT标志被指定，这个参数是NULL
    .参数 事件函数, 子程序指针, , 指针事件挂钩函数。如需有关此功能的详细信息，请参阅WinEventProc。.
    .参数 事件进程id, 整数型, , 指定的进程从该钩子函数接收事件的ID。指定零（0），接收当前桌面上的所有进程的活动。
    .参数 线程id, 整数型, , 指定从哪个线程钩子函数接收事件的ID。如果这个参数是零，钩子函数是与当前桌面上所有现有的线程。
    .参数 标志未明, 整数型, , 标志值，指定的钩子函数的位置和活动都将被跳过。下面的标志是有效的：

.DLL命令 销毁事件句柄, , , "UnhookWinEvent"
    .参数 事件句柄, 整数型

.DLL命令 当前线程标志符_, 长整数型, "kernel32", "GetCurrentThreadId"

.DLL命令 取当前进程标识符_, 长整数型, "kernel32.dll", "GetCurrentProcessId", , 获取当前进程一个唯一的标识符

.DLL命令 取当前线程伪句柄_, 整数型, "kernel32", "GetCurrentThread", , 获取当前线程的一个伪句柄  当前线程的伪句柄

.DLL命令 取当前进程伪句柄_, 整数型, "kernel32.dll", "GetCurrentProcess", , GetCurrentProcess