Как очистить буфер клавиатуры?

Материал из DRKB

Как очистить буфер клавиатуры?[править | править код]

procedure EmptyKeyQueue;
var
  msg: TMsg;
begin
  while PeekMessage(msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do
    ;
end;

begin
  EmptyKeyQueue;
end.


Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 01522