Ловушка на клаву(нужно немного улутшить ее)

[xshStasX]

Есть такая ловушка

(*----------------------------------------------------------------------*)
Library Hook;
Uses
Windows,Messages,Dialogs,sysutils;
var
H: THandle;
Function HookProc(Code:Integer;Wparam:Word;Lparam:Longint):Integer;stdcall;
begin
if (Code=HC_ACTION)and((Lparam and wm_char)=0) then
  ShowMessage(chr(Wparam));
CallNextHookEx(h,code,Wparam,Lparam);
end;
procedure SetHook;
begin
 h:=SetWindowsHookEx(WH_KEYBOARD,@hookproc,HInstance,0);
end;
Procedure DelHook;
 begin
  UnhookWindowsHookEx(H);
 end;
exports
SetHook,DelHook;
begin
end.
(*----------------------------------------------------------------------*)

и программа которая устанавливает ету ловушку в системе.
Но в этой ловушки есть один большой минус а именно нельзя узнать регистр клавиш(тоесть большая буква или маленькая) и все которые она
показывает английские.
Как сделать такую ловушку чтоб она более точно определяла нажатую клавишу в и также учитывала раскладку клавиатуры????

[Minimus]

Ну с помощью WH_KEYBOARD ты получаешь только виртуальные коды клавиш. А каждый процесс имеет свою клавиатуру - т.е. свою раскладку и свой регистр. Можно конечно решить и эту проблему - но это будет очень сложно. Используй WH_GETMESSAGE.

Function HookProc(Code:Integer;Wparam:Word;Lparam:Longint): Integer;stdcall;
begin
  if (Code = HC_ACTION) then
  begin
    if PMsg(Lparam)^.message = WM_CHAR then ShowMessage(char(PMsg(Lparam)^.wParam));
  end;
  CallNextHookEx(h,code,Wparam,Lparam);
end;

procedure SetHook;
begin
h:=SetWindowsHookEx(WH_GETMESSAGE,@hookproc,HInstance,0);
end;

[Minimus]

 if PMsg(Lparam)^.message = WM_CHAR then ShowMessage(char(PMsg(Lparam)^.wParam));

Что-то мне не нравится это ShowMessage!