🚀 go-pugleaf

I've written a global keyboard hook (which works perfectly fine) but
I'm trying to remap keys as they are entered...

For example, if somebody types the letter 'G', I want to change that
'G' into a 'K' (etc, etc)...

I've been searching all day long and I've read about using keybd_event
and I've tried the following code, but I enter an infinite loop of some
sort.  Please help...



function ProcessKeyBoardHook(code: integer; wParam: word; lParam:
longword): longword; stdcall;
var
KeybdState : TKeyboardState; // array[0..255] of byte
charcode : longword;
fromKeybdEvt: Word;
begin
if (code < 0) then begin  //if code is <0 your keyboard hook should
always run CallNextHookEx instantly and
result := CallNextHookEx(HookInformation^.HookHandle, code, wParam,
lparam); //then return the value from it.
Exit;
end;

fromKeybdEvt := (lParam shr 16);

// Process the hook here:
//   Only react to WM_KEYDOWN (check 32bit in lParam)
if (lParam and (1 shl 31)) = 0 then begin
GetKeyboardState(KeybdState);
if ToASCII(wParam, HiWord(lParam), KeybdState, @CharCode, 0) = 1
then begin
PostMessage(HookInformation^.AppHandle, WM_KEYPRESSED, 0,
CharCode);
writeDebug('Key pressed: ' + IntToStr(wparam), 'c:\log.txt');

// Send an 'E' key to the keyboard buffer
keybd_event(ord('E'), 0, 0, 0);
keybd_event(ord('E'), 0, KEYEVENTF_KEYUP, 0);
end;
end;

// PostMessage(HookInformation^.AppHandle, WM_KEYPRESSED, ch,
lParam);
CallNextHookEx(HookInformation^.HookHandle, code, wParam, lparam);
//call the next hook proc if there is one

// I found this code on google groups-- it's supposed to prevent the
// infinite loop by allowing keybd_events to pass and everything else
// to be trapped.
if ((fromKeybdEvt and $FF00) = $C100) then
result := 0 // let it pass, it's from keybd_event
else
    result := 1;  // trap/erase this keypress

  exit;
end;