XProfan

Def mouse_event(5) !USER32,mouse_event
Def SwapMouseButton(1) !User32,SwapMouseButton

Proc GetMouseHand

    mouse_event(2,0,0,0,0)
    Var Erg% = %Message
    mouse_event(4,0,0,0,0)

    Select Erg%

        CaseOf 513

        Return 0

        CaseOf 516

        Return 1

    EndSelect

EndProc

Cls
Print Einstellung der qMausrichtungq ermitteln
mouse_event(2,0,0,0,0) Links runter
Print %message,Linksklick? Die Maus ist als Rechtshändermaus eingestellt
mouse_event(4,0,0,0,0)  Links rauf
Print %message
SwapMouseButton(1)
mouse_event(2,0,0,0,0) Links runter
Print %message,Rechtsklick? Die Maus ist als Linkshändermaus eingestellt
mouse_event(4,0,0,0,0)  Links rauf
Print %message
SwapMouseButton(0)
Print Du bist  + If(GetMouseHand() = 0,Rechtshänder,Linkshänder)
WaitInput