智能嵌入桌面

智能嵌入桌面例子。
.判断循环首 (tFound ≠ 0)
.如果真 (lpTe.th32OwnerProcessID ＝ Pn.th32ProcessID)
EnumThreadWindows (lpTe.th32ThreadID, &EnumThreadWndProc, ret)
跳出循环 ()
.如果真结束
tFound ＝ Thread32Next (sThread, lpTe)
.判断循环尾 ()