XProfan

'{$cleq}
cls
registerHotKey(%hWnd,65,2,65)//strg a
registerHotKey(%hWnd,66,2,66)//strg b
registerHotKey(%hWnd,67,2,67)//strg c
subClass %hWnd,1
userMessages 1024// wm_user

while 1

    waitInput

    select %uMessage

        caseof 1024

        messageBox "Taste: "+str$(hiWord(&ulParam)),"",0

    endSelect

wend

end

subClassProc

    case subClassMessage(%hWnd,$312) : sendMessage(%hWnd,1024,&swParam,&slParam)// wm_hotKey, wm_user

endproc