易语言取输入焦点窗口句柄模块源码

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

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 取输入焦点窗口句柄
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetForegroundWindow
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   GetCurrentThreadId
           |  |
           |  |---[dll]------   AttachThreadInput
           |  |
           |  |---[dll]------   GetFocus
           |  |
           |  |---[dll]------   GetClassName1
           |  |
           |  |---[dll]------   GetClassName

调用的DLL命令:

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

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

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

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

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

.DLL命令 GetClassName1, 整数型, "user32.dll", "GetClassNameA"
    .参数 句柄, 整数型
    .参数 文本, 文本型
    .参数 文本长度, 整数型

.DLL命令 GetClassName, 整数型, "user32.dll", "GetClassNameA"
    .参数 句柄, 整数型
    .参数 文本, 文本型
    .参数 文本长度, 整数型