[Ama]

Доброе время суток!!!! Пишу прогу которая сидит в памяти и реагирует на нажатие сочетаний клавиш.....все вроде бы нормально....но вот перехват клавиш решил сделать через DLL, вот процедура обработки клавиш:

Код:

 function KeyMsgProc(Code: integer; wParam: word;
                     lParam: LongInt): LongInt; stdcall;
   var kn: array[0..50] of Char;
  begin
   if (Code = HC_ACTION) and (((lParam shr 16) and KF_UP) = KF_UP) then
    begin
     GetKeyNameText(lParam, kn, SizeOf(kn));
     MessageBox(0, PChar('"' + IntToStr(wParam) + '" ' + StrPas(kn)), PChar(''), MB_OK);
    end;
   Result:= CallNextHookEx(KHook, Code, wParam, lParam);
  end;

Но проблема в том что он перехватывает каждую клавишу, а как мне перехватить сочетание клавиш?