XProfan

 {$cleq}
cls
userMessages wm_user+1234
initMyHook()

while 1

    waitInput

    select uMessage

        caseof wm_user+1234

        if (&ulParam==128) and (&uwParam==65)//taste a losgelassen?

            if iskey(17) and iskey(18)//strg+alt?

                setWindowPos hwnd=%winleft,%wintop - (%winright-%winleft),(%winbottom-%wintop);-1
                setWindowPos hwnd=%winleft,%wintop - (%winright-%winleft),(%winbottom-%wintop);-2

            endif

        endif

    endSelect

wend

nProc initMyHook

    return SetWindowsHookEx(13,procAddr(myLowLevelKeyboardHookProc),getModuleHandle(0),0)/*WH_KEYBOARD_LL*/

endproc

nProc myLowLevelKeyboardHookProc(long code,wp,lp)

    sendMessage(hWnd,wm_user+1234,long(lp,0),long(lp,8))
    return 0

ENDPROC