Переделать функцию

[Delphi_ProGer]

Здраствуйте, я нашел такой код:

   
var  
  MouseHook: HHOOK;   
    
function LowLevelMouseProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;   
begin  
  Result := CallNextHookEx(MouseHook, nCode, WParam, LParam);   
  case WParam of  
    WM_LBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась левой кнопкой.');   
    WM_LBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась левой кнопкой.');   
    WM_LBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась левой кнопкой.');   
    WM_RBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась правой кнопкой.');   
    WM_RBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась правой кнопкой.');   
    WM_RBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась правой кнопкой.');   
    WM_MBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась средней кнопкой.');   
    WM_MBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась средней кнопкой.');   
    WM_MBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась средней кнопкой.');   
    WM_MOUSEMOVE: Form1.Memo1.Lines.Add('Мыша побежала.');   
    WM_MOUSEWHEEL: Form1.Memo1.Lines.Add('Мыша тащиться.');   
  else  
    Form1.Memo1.Lines.Add('Мыша сошла с ума, купите новую мышу.');   
  end;   
end;       
end.

Как мне переделать его, чтобы в Мемо записовались нажатые клавиши??

[Lemo]

код сакс...


http://delphiexpert.ru/view_lesson.php?id=16

[MaxNik2009]

>>Тут<< посмотри.

[Delphi_ProGer]

Сообщение от Lemo

код сакс...


http://delphiexpert.ru/view_lesson.php?id=16

такое не подойдет, мне нужно хук, но спс и за то.

Сообщение от MaxNik2009

>>Тут<< посмотри.

спс, +1