易语言禁止按下某键源码

系统结构:禁止某键,GetHandle,setHOOK,GetModuleHand,Unhook,MoveMemory,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ 禁止某键
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetHandle
           |  |
           |  |---[dll]------   setHOOK
           |  |
           |  |---[dll]------   GetModuleHand
           |  |
           |  |---[dll]------   Unhook
           |  |
           |  |---[dll]------   MoveMemory

调用的DLL命令:

.DLL命令 GetHandle, 整数型, "user32", "GetForegroundWindow"

.DLL命令 setHOOK, 整数型, "user32", "SetWindowsHookExA"
    .参数 idHook, 整数型
    .参数 lpfn, 子程序指针
    .参数 hmod, 整数型
    .参数 dwThreadId, 整数型

.DLL命令 GetModuleHand, 整数型, , "GetModuleHandleA"
    .参数 a, 整数型

.DLL命令 Unhook, 整数型, "user32.dll", "UnhookWindowsHookEx"
    .参数 hook, 整数型

.DLL命令 MoveMemory, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 按键信息
    .参数 Source, 整数型
    .参数 Length, 整数型