Очистить очередь сообщений клавиатуры и мышки

procedure
 EmptyKeyQueue;
 var

   Msg: TMsg;
 begin

   while
 PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST,
     PM_REMOVE or
 PM_NOYIELD) do
;
 end
;

 procedure
 EmptyMouseQueue;
 var

   Msg: TMsg;
 begin

   while
 PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST,
     PM_REMOVE or
 PM_NOYIELD) do
;
 end
;

Другое по теме:

• Эмуляция нажатия клавиш
• Установка ловушки для клавиатуры
• Убрать программу из списка Ctrl+Alt+Delete