程序嵌入桌面软件制作专属的视频桌面

hWnd ＝ FindWindow (“Progman”, “Program Manager”) ' 获取桌面窗口句柄
.如果真 (hWnd ＝ 0)
SetParent (要嵌入的窗口句柄, hWnd)
返回 (1)
.如果真结束
SendMessage (hWnd, 1324, 0, 0) ' 发送多屏消息
重定义数组 (hWindowWnd, 假, 0) ' 初始化数组
.如果真 (EnumWindows (取子程序地址 (&EnumWindowsProc), 0) ＝ 假) ' 枚举窗口
返回 (2)
.如果真结束
.计次循环首 (取数组成员数 (hWindowWnd), i)
.如果真 (寻找文本 (hWindowWnd [i].Class, “WorkerW”, , 假) ≠ -1 且 取文本长度 (hWindowWnd [i].Class) ≠ 0)
window_hWnd ＝ FindWindowEx (hWindowWnd [i].hWnd, 0, “SHELLDLL_DefView”, 字符 (0))
.如果 (window_hWnd ＝ 0) ' 无法获取句柄代表该workerw类窗口没有子窗口也就是获取到图标下面的WorkerW类窗口了
SendMessage (hWindowWnd [i].hWnd, 16, 0, 0) ' 直接关闭该窗口
.否则

.如果结束

.如果真结束

.计次循环尾 ()
SetParent (要嵌入的窗口句柄, hWnd)