兼容性不错的窗口嵌入桌面做动态壁纸软件源码

.子程序 GetWorkerW, 整数型, 公开
.局部变量 windowHandle, 整数型
.局部变量 result, 整数型
windowHandle ＝ FindWindowA (“Progman”, 字符 (0))
' //使用 0x3e8 命令分割出两个 WorkerW
SendMessageTimeoutA (windowHandle, 1324, 0, 0, #SMTO_NORMAL, 1000, result)
EnumWindows (取子程序地址 (&EnumWindowsProc), 0)
ShowWindow (_WORKERW, #SW_HIDE)
返回 (windowHandle)

.子程序 EnumWindowsProc, 逻辑型, 公开
.参数 tophandle, 整数型
.局部变量 defview, 整数型
defview ＝ FindWindowExA_文本 (tophandle, 0, “SHELLDLL_DefView”, 字符 (0))
.判断开始 (defview ≠ 0)
    _WORKERW ＝ FindWindowExA (0, tophandle, “WorkerW”, 0)