Keyboard Message Queue (Tastaturpuffer) leeren

[shmia]

Folgende Funktion löscht den Tastaturpuffer (genauer: Keyboard Message Queue) der aktuellen Anwendung.
Im Rückgabewert ist die Anzahl der verschluckten Tasten.

Delphi-Quellcode:

function ClearKeyboardBuffer:Integer;
var
  Msg: TMsg;
begin
  Result := 0;
  while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE) do
    Inc(Result);
end;

[edit=Matze]Code formatiert. Mfg, Matze[/edit]

[shmia]

Nachtrag:
Wozu muss man den Tastaturpuffer eigentlich leeren ?
Anwort: vor wichtigen Dialogen wie z.B. "Wollen Sie die Datenbank wirklich löschen ? Ja / Nein"
sollte man den Tastaturpuffer leeren, damit nicht Tastendrücke eine unbeabsichtigte Aktion auslösen.