易语言API自绘Aero模块附黑月置窗口外形图片

.如果 (是否为空 (模糊半径))
模糊半径_ ＝ 5
.否则
模糊半径_ ＝ 模糊半径
.如果结束
hwnd_ ＝ 父窗口句柄
真彩窗口.创建 (hwnd_)
Aero_刷新位图 (, 模糊半径_, 是否开启覆盖图形, #Aero玻璃)
Aero_自动刷新位图_模糊半径 ＝ 模糊半径_
Aero_自动刷新位图_是否开启覆盖图形 ＝ 是否开启覆盖图形
旧窗口信息 ＝ 设置窗口信息_ (父窗口句柄, -4, 到数值_从子程序指针 (辅_字节集到子程序地址 (zNewProc_)))

hwnd ＝ GetForegroundWindow ()
pid ＝ GetWindowThreadProcessId (hwnd, a)
bpid ＝ GetCurrentThreadId ()
AttachThreadInput (pid, bpid, 1)
jhwnd ＝ GetFocus ()
返回 (jhwnd) ' 如果直接返回就是取焦点窗口句柄，下面的是取输入焦点（有插入符）的窗口句柄
' Name ＝ 取空白文本 (255)
' GetClassName (jhwnd, Name, 255)
.如果真 (Name ＝ “Edit” 或 Name ＝ “RICHEDIT” 或 Name ＝ “RichEDIT20W”)
' old ＝ jhwnd
.如果真结束
' 返回 (old)