XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastatureingaben abfangen (Umlaute in normale Buchstaben umsetzen)
Im folgenden Beispiel wird das Umsetzen von Umlauten in normalen Buchstaben vorgenommen.
Es wird eine Nachrichtenfilterfunktion für die Tastatur-Nachrichten mittels SetWindowsHookEx installiert.
Sie leitet die eingehenden Tastatur-Nachrichten auf die CallBack-Routine KbdHookProc um und wertet sie aus,
bevor sie abgefangen (mit Return <> 0) oder weitergeleitet (mit Return = 0) werden.
Es werden die virtuellen Key-Codes für die deutschen Umlaute abgefangen und mit Keybd_Event in ein
entsprechendes Äquivalent umgesetzt.
Es werden zwei MultiEdit-Controls auf dem Fenster geöffnet, um zu zeigen, dass diese Routine unabhängig
von den Controls funktioniert.
Am Ende ist es notwendig, die verkettete Routine mittels UnHookWindwsEx am Ende wieder zu entfernen.
-Begin-----------------------------------------------------------------
 $H Windows.ph
-DeclareVariables----------------------------------------------------
Declare hKbdHook&, Ende&
-HookProc------------------------------------------------------------

Proc KbdHookProc

    Parameters nCode&, wParam&, lParam&
    Declare RetCode&

    If wParam& = 222 Ä

        If lParam& < 0

            ~keybd_event(65, 0, 0, 0)
            ~keybd_event(65, 0, ~KEYEVENTF_KEYUP, 0)
            ~keybd_event(69, 0, 0, 0)
            ~keybd_event(69, 0, ~KEYEVENTF_KEYUP, 0)

        EndIf

        RetCode& = 1

    ElseIf wParam& = 192 Ö

        If lParam& < 0

            ~keybd_event(79, 0, 0, 0)
            ~keybd_event(79, 0, ~KEYEVENTF_KEYUP, 0)
            ~keybd_event(69, 0, 0, 0)
            ~keybd_event(69, 0, ~KEYEVENTF_KEYUP, 0)

        EndIf

        RetCode& = 1

    ElseIf wParam& = 186 Ü

        If lParam& < 0

            ~keybd_event(85, 0, 0, 0)
            ~keybd_event(85, 0, ~KEYEVENTF_KEYUP, 0)
            ~keybd_event(69, 0, 0, 0)
            ~keybd_event(69, 0, ~KEYEVENTF_KEYUP, 0)

        EndIf

        RetCode& = 1

    ElseIf wParam& = 219 ß

        If lParam& < 0

            ~keybd_event(83, 0, 0, 0)
            ~keybd_event(83, 0, ~KEYEVENTF_KEYUP, 0)
            ~keybd_event(83, 0, 0, 0)
            ~keybd_event(83, 0, ~KEYEVENTF_KEYUP, 0)

        EndIf

        RetCode& = 1

    Else

        ~CallNextHookEx(hKbdHook&, nCode&, wParam&, lParam&)
        RetCode& = 0

    EndIf

    Return RetCode&

EndProc

---------------------------------------------------------------------
WindowStyle 27
Cls
hKbdHook& = ~SetWindowsHookEx(~WH_KEYBOARD,
@ProcAddr(KbdHookProc, 3), 0,
~GetWindowThreadProcessID(%hWnd, 0))
@Create(MultiEdit, %hWnd, , 10, 10, 600, 210)
@Create(MultiEdit, %hWnd, , 10, 235, 600, 210)
Clear Ende&

WhileNot Ende&

    WaitInput

    If %Key = 2

        Ende& = 1

    EndIf

EndWhile

~UnHookWindowsHookEx(hKbdHook&)
-End-------------------------------------------------------------------
End
Hinweis: Es ist mit XProfan nicht möglich, systemweit Tastatur-Nachrichten abzufangen.
Windows erwartet eine entsprechende Routine in einer DLL-Datei.