デスクトップの中にウィンドウを移動させるやつ

sample.uws

call WindowInDesktop.uws

WindowInDesktop.Start() // 準備

balloon("hogehoge")
WindowInDesktop.Set(getid(GET_BALLOON_WIN))

thread ThreadSetSlctbox()
ret = slctbox(SLCT_STR, 0, "なんか押す", "foo", "bar", "bax")

msgbox(ret + " が押されました")

procedure ThreadSetSlctbox()
    public WindowInDesktopResult
    id = getid("", "TUslctBox_uwsc", 10)
    WindowInDesktopResult = WindowInDesktop.Set(id)
fend

WindowInDesktop.uws

module WindowInDesktop
    hashtbl WorkerW

    function Start()
        def_dll SendMessageTimeoutA(hwnd, uint, uint, long, uint, uint var dword):int:user32.dll
        // WorkerWを追加
        progman = getid("", "Progman")
        hProgman = idtohnd(progman)
        ret = 0
        result = SendMessageTimeoutA(hProgman, $052C, 0, 0, 0, 1000, ret) <> 0
    fend
    
    function Set(id)
        def_dll SetParent(hwnd, hwnd):hwnd:user32.dll

        // 追加したWorkerWのIDを得る
        flg = FALSE
        WorkerW[id] = -1
        for id1 in getallwin()
            if getallwin(id1) = 0 then continue
            for id2 in ALL_WIN_ID
                if flg then break
                if status(id2, ST_CLASS) = "SHELLDLL_DefView" then
                    flg = TRUE
                    break
                endif
                continue 2
            next
            if status(id1, ST_CLASS) = "WorkerW" then
                if status(id1, ST_PARENT) = -1 then
                    WorkerW[id] = id1
                    break
                endif
            endif

        next
        result = SetParent(idtohnd(id), idtohnd(WorkerW[id])) > 0
    fend

    // procedure Dispose(id)
    //     ctrlwin(id, CLOSE)
    //     ctrlwin(WorkerW[id], CLOSE)
    // fend
    
endmodule

後始末をどうするべきなのかわかってないし終了後の状態も確認してません
心配ならタスクマネージャからエクスプローラを右クリックして再起動させる