Foros Club Delphi - Limpiar el buffer del teclado

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Limpiar el buffer del teclado (https://www.clubdelphi.com/foros/showthread.php?t=58265)

Limpiar el buffer del teclado

Hola. Estoy tratando de crear un proceso que limpie el buffer de teclado o espere hasta que ya no existan más teclas pendientes de procesar, pero no consigo hacer que funcione. He buscado en el foro pero no he encontrado nada de como limpiar el buffer de teclado.
El código que probé es el siguiente:

Código:

while GetInputState do application.processmessages;

También he estado viendo de usar GetQueueStatus, pero no lo veo claro.
Alguien me puede indicar una manera sencilla de realizarlo.
Gracias.

Hola. Me respondo a mi mismo porque he encontrado una posible solución en la página de Torry's:

Código:

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;

Un saludo.