XProfan

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

Cls
Déclarer handle&, pid&
pid& = ShellExec("calc","open",1)
Sleep 500'attendre jusqu'à cela la fenêtre voilà, cela Handle sur qui PID trop ermitteln ist aufwendig, wäre mais sauberer
Handle&  = FindWindow("Rechner")
Def Setparent(2) !"User32","SetParent"
Imprimer Setparent(%hwnd, Handle&)

WhileNot iskey(27)

    sleep 10'un Subclassing welches direct sur qui Fensterbewegung hört wäre eleganter
    SetWindowPos Handle& = %WinRight, %WinTop

Endwhile

WaitKey
Fin