Delphi win32 api отловить нажатие кнопок

[revaldo666]

Собственно вот код программы

Program Api;
uses
  windows,
  messages;

var
window:TWndClassEx;
Mwindow: HWND;
Mmsg: MSG;
Msg:TMsg;
Handled: Boolean;

// Процедура обработки сообщений
function WindowProc (wnd: HWND; msg: integer; wparam: WPARAM; lparam: LPARAM):LRESULT;STDCALL;
begin
case msg of
WM_Destroy:
begin
PostQuitMessage (0);
Result := 0;
Exit;
end;
else
Result := DefWindowProc(wnd,msg,wparam,lparam);
end;
end;

// Ристрация класса окна
begin
window.cbSize := sizeof (window);
window.style := CS_HREDRAW or CS_VREDRAW;
window.lpfnWndProc := @WindowProc;
window.cbClsExtra := 0;
window.cbWndExtra := 0;
window.hInstance := HInstance;
window.hIcon := LoadIcon (0,IDI_APPLICATION);
window.hCursor := LoadCursor (0,IDC_ARROW);
window.hbrBackground:=Color_BtnFace+12;
window.lpszMenuName := nil;
window.lpszClassName := 'Main_Window';
RegisterClassEx (window);
// Создание окна на основе созданного класса
Mwindow := CreateWindowEx(0,'Main_Window','by_revaldo666', WS_OVERLAPPEDWINDOW,100,100,300,300,0,0,Hinstance,nil);
// Показать созданное окно
SHOWWINDOW (Mwindow,SW_Show);


// Цикл обработки сообщений
while GetMessage (Mmsg,0,0,0) do
begin
TranslateMessage (Mmsg);
DispatchMessage (Mmsg);

end;

end.

Нужно что в окне определялось какая клавиша была нажата.(Собственно задание: создать окно, отловить нажатие клавиш, мыши)
Подскажите как это сделать...знаю что по средством WM_keyup/Keydown
а вот как именно незнаю...

[eoln]

// Цикл обработки сообщений
while GetMessage (Mmsg,0,0,0) do
begin
TranslateMessage (Mmsg);
DispatchMessage (Mmsg);
  if Mmsg.message=wm_LButtonDown then
    windows.MessageBox(0, 'левая', '', 0);
  if Mmsg.message=wm_RButtonDown then
    windows.MessageBox(0, 'правая', '', 0);
  if Mmsg.message=wm_KeyDown then begin
    str(Mmsg.wParam, s);
    windows.MessageBox(0, pchar(s), '', 0);//виртуальный код клавиши
  end;
end;

http://msdn.microsoft.com/en-us/libr...81(VS.85).aspx

[revaldo666]

спасибо разобрался