Tastatureingaben abfangen (Umlaute in normale Buchstaben um

'Tastatureingaben abfangen (Umlaute in normale Buchstaben um

Beitrag, 15.07.2007 20:30: ;createCode() '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 'ss
         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.

Dies ist die Offlinevariante vom Thread [Tastatureingaben abfangen (Umlaute in normale Buchstaben um].