XProfan

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

do{

    waitInput

    select uMessage

        caseof wm_user+1234

        if (&ulParam==1) and (&uwParam==44)

            print "Drucktaste"

        endif

    endSelect

}

nProc initMyHook{

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

}

nProc myLowLevelKeyboardHookProc(long code,wp,lp){

    sendMessage(hWnd,wm_user+1234,long(lp,0),long(lp,8))
    CallNextHookEx(0, Code, wp, lp)}

cls
registerHotKey(hWnd,222,0,44)
userMessages wm_hotkey

do {

    waitinput

    if uMessage==wm_hotkey {

        print "Tastaturcode:",hiword(ulParam)

    }

}

cls
external("user32.dll","RegisterHotKey",%hWnd,222,0,44)
usermessages 786'wm_hotkey

while 1

    waitinput

    if %uMessage=786

        print "Tastaturcode:",&ulParam \ $10000

    endif

wend