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

Delphi , ОС и Железо , Клавиши

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;

Статья Очистить очередь сообщений клавиатуры и мышки раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Клавиши ::