子孫ウィンドウを列挙する | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#module ED
#uselib "User32.dll"
#cfunc ED_GetWindow "GetWindow" int, int
// EnumDescendants handle, result
// handleのウィンドウハンドルを持つウィンドウの子孫を列挙し、ウィンドウハンドルを配列でresultに代入します
// resultは予め0で初期化（dim result を実行）してください
#deffunc EnumDescendants int handle, array result, local child, local flag
    // 最初の子ウィンドウを取得
    child = ED_GetWindow(handle, 5/*GW_CHILD*/)
    // 子ウィンドウが存在する限りループ
    while child
        // 既にresultにあるものは除く（このような場合が存在するのか分からないが、念のため）
        // 万が一巡回参照があった場合、この作業を行わないと無限ループに陥る
        flag = 1
        foreach result
            if result(cnt) == child {
                // 初出ではないウィンドウの模様
                flag = 0
                break
            }
        loop
        if flag {
            // どうやら初出のウィンドウらしいので、resultに追加
            if result(0) {
                // 末尾に追加
                result(length(result)) = child
            } else {
                // 最初の代入なので、添字0に代入
                result(0) = child
            }
            // 再帰
            EnumDescendants child, result
        }
        // 次の子ウィンドウを取得
        child = ED_GetWindow(child, 2/*GW_HWNDNEXT*/)
    wend
    return
#global
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX