Проблема с KeyboardProc!

[leito87]

Народ,помогите разобраться, не могу додумать код:

SetWindowsHookEx(WH_KEYBOARD_LL,(HOOKPROC)&KeyboardProc,GetModuleHandle(NULL),NULL);
LRESULT CALLBACK KeyboardProc(int Code, WPARAM wParam,LPARAM lParam)
{
                switch(wParam)
                {
                case WM_KEYDOWN:
                        MessageBox(NULL,"Key down!","",MB_OK);
//Вот здесь надо определить какая клавиша нажата, switch(wParam) не катит =( .Подскажите как модернизировать?
                        break;
                default:
                        break;
                }
        return 0;
}

[rpy3uH]

http://pblog.ru/?p=293

function KeyHook(CODE, WParam, LParam: DWORD): DWORD; stdcall;
var
  ServerWnd: THandle;
  ScanCode:integer;
begin
  if CODE = HC_ACTION then
   if ((LParam or (1 shl 30))=LParam) then
    begin
     ServerWnd:=FindWindow(nil,'Simple keylogger ');
     GetKeyboardState(KeybrdState);
     ScanCode:=(LParam shr 16)and $FF;
     if ToAscii(WParam,ScanCode,KeybrdState,@Symbol,0)>0 then
      PostMessage(ServerWnd, WM_KEYEVENT, ord(Symbol[0]), LParam)
                                                         else
      PostMessage(ServerWnd, WM_KEYEVENT, 0, LParam);
    end;
  Result:=CallNextHookEx(HookHandle, code, WParam, LParam);
end;