カーソルの移動範囲を制限する

ウィンドウの中にマウスカーソルを閉じ込める。
ウィンドウを移動させたりすると解除されるらしい。#uselib "user32.dll"
    #func ClipCursor "ClipCursor" sptr

    rect = ginfo(4), ginfo(5), ginfo(6), ginfo(7)
    ClipCursor varptr(rect)
    title "ウィンドウの外に出られない！"
    button goto "解除", *a
    stop

*a
    ClipCursor 0
    stop