XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastatureingaben: Tastenkombinationen
PRFellow-Vorlage
Autor: Thomas Hölzer
Konstanten etc. HotKey-Control
Def HiByte(1) Div&(&(1),$100)
Def LoByte(1) And(&(1),$FF)
Def MakeWord(2) Or(%(1),Mul(%(2),$0100))
Def MapVirtualKey(2) !USER32,MapVirtualKeyA
Def GetHK_VKeyValue(1) LoByte(MapVirtualKey(SendMessage(&(1),1026,0,0),2))
Def GetHK_Modifier(1) HiByte(SendMessage(&(1),1026,0,0))
Def GetHK_Char(1) Chr$(LoByte(MapVirtualKey(SendMessage(&(1),1026,0,0),2)))
Def SetHotKey(3) SendMessage(&(1),1025,MakeWord(%(2),%(3)),0)
Declare hk&
WindowTitle Bitte eine Tastenkombination eingeben
Cls
Let hk&=Control(msctls_hotkey32,,$54010200,300,50,150,24,%hwnd,2000,%hinstance)
SetHotKey(hk&,71,1)  mit Shift-G initialisieren

While 1

    SetFocus(hk&)
    WaitInput
    Cls
    Print Sie haben eingegeben:
    Print Wert des gewählten Zeichens: , GetHK_VKeyValue(hk&)
    Print Gewähltes Zeichen          : , GetHK_Char(hk&),
    Print Modifier-Wert              : , GetHK_Modifier(hk&),
    print
    print Modifier-Werte:
    print Shift=1
    print Ctrl =2
    print Alt  =4
    print Kombinationen ergeben sich durch Addition.
    print
    print Bitte über Systemmenü beenden!

Wend