Хук на клавиатуру

[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,HInstanc e,0);
end;
Procedure DelHook;
begin
UnhookWindowsHookEx(H);
end;
exports
SetHook,DelHook;
begin
end.

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

[Minimus]

Я где-то уже отвечал на этот вопрос в другом разделе. Совсем недавно.