易语言取窗口焦点控件

系统结构:取输入焦点窗口句柄,取消绘画,绘画,GetFocus,GetForegroundWindow,GetWindowThreadProcessId,GetCurrentThreadId,AttachThreadInput,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 取输入焦点窗口句柄
           |  |
           |  |------ 取消绘画
           |  |
           |  |------ 绘画
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetFocus
           |  |
           |  |---[dll]------   GetForegroundWindow
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   GetCurrentThreadId
           |  |
           |  |---[dll]------   AttachThreadInput

调用的DLL命令:

.DLL命令 GetFocus, 整数型, , "GetFocus"

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

.DLL命令 GetWindowThreadProcessId, 整数型, , "GetWindowThreadProcessId"
    .参数 Id
    .参数 hwnd

.DLL命令 GetCurrentThreadId, 整数型, , "GetCurrentThreadId"

.DLL命令 AttachThreadInput, 整数型
    .参数 欲连接线程的标识符
    .参数 与idAttach线程连接的另一个线程的标识符
    .参数 FALSE撤消连接