窗口_是否在最顶端 函数功能 BUG 报告

wjt741106

  窗口_是否在最顶端  函数有BUG

源码：
当前窗口 ＝ 窗口_取焦点句柄 ()  ' ---> 错误关键所在  窗口_取焦点句柄 ，功能有局限，只能取本进程的焦点句柄,取不了其它进程焦点句柄，焦点在其它进程，本函数就无用了
修改后的 窗口_取焦点句柄 () 函数
.版本 2
.子程序 窗口_取焦点句柄, 整数型, 公开, 取焦点句柄;获得自身拥有输入焦点的窗口句柄
.局部变量 wnd, 整数型
.局部变量 SelfThreadId, 整数型
.局部变量 ForeThreadId, 整数型
.局部变量 附加线程, 逻辑型
' 获取当前具有输入焦点控件的窗口句柄由于GetFocus只能本身进程调用，所以必须调用AttachThreadInput函数附加线程
wnd ＝ 0  ' ;//窗口句柄
wnd ＝ GetForegroundWindow ()  ' //获得当前激活的窗口句柄
SelfThreadId ＝ GetCurrentThreadId ()  ' //获取本身的线程ID
ForeThreadId ＝ GetWindowThreadProcessId (wnd, 0)  ' //根据窗口句柄获取线程ID
.如果真 (ForeThreadId ≠ SelfThreadId)
    AttachThreadInput (ForeThreadId, SelfThreadId, 真)  ' //附加线程
.如果真结束
wnd ＝ GetFocus ()  ' //获取具有输入焦点的窗口句柄
.如果真 (ForeThreadId ≠ SelfThreadId)
    AttachThreadInput (ForeThreadId, SelfThreadId, 假)  ' //取消附加的线程
.如果真结束
' SendMessage(wnd,WM_CHAR,WPARAM('a'),0);//发送一个字消息
返回 (wnd)


需要再增加一个DLL命令
.版本 2
.DLL命令 AttachThreadInput, 整数型, , "AttachThreadInput", , “连接线程输入函数”,返回值 Long，非零表示成功，零表示失败，
    .参数 idAttach, 整数型, , 欲连接线程的标识符（ID）,这是源
    .参数 idAttachTo, 整数型, , 与idAttach线程连接的另一个线程的标识符 fAttach Long，这是转移连接到的目标
    .参数 fAttach, 逻辑型, , TRUE（非零）连接，FALSE撤消连接 注销

wjt741106

上条贴子打字错误，重新发      窗口_取激活句柄   对本线程建立的窗口句柄才有效，是本进程不是本线程的窗口都不能返回预期值

wjt741106

函数功能注释，在发现了注释不完整的，也希望能补充全面。
比如：窗口_取激活句柄  注释为： 取激活的窗口句柄。  编写了代码调试很久发现结果不对，仔细排查才发现这个函数只对本线程建立的窗口句柄才有效，是本进程还是本线程的窗口都不能返回预期值，因此注注释应该加上：仅对本线程的激活窗口能有效返回句柄值。

. .子程序 窗口_取顶端窗口句柄, 整数型, 公开,   注注释为： 成功返回一个最顶端窗口的句柄 。再补充一完整：取当前操作系统中处于激活状态的窗口句柄，可取其它进程的激活窗口。
如果只看函数的名称， 窗口_取激活句柄   能误导人以为它能取当前系统中处于激活状态的窗口句柄

wjt741106

同时建议 模板中源码尽量保量注释或注释清楚，减少一些多余的慢慢理解源码的时间消耗