XProfan

Def Setparent(2) !"USER32","SetParent"

Cls
Declarar handle&, pid&
pid& = ShellExec("calc","open",1)
Sleep 500'warten a el Ventana como es, el Handle en PID a ermitteln es aufwendig, wäre aber sauberer
Handle&  = FindWindow("Rechner")
Def Setparent(2) !"USER32","SetParent"
Imprimir Setparent(%hwnd, Handle&)

Sinestar encargado iskey(27)

    sleep 10'una Subclassing welches direkt en el Fensterbewegung hört wäre eleganter
    SetWindowPos Handle& = %WinRight, %WinTop

EndWhile

WaitKey
End