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]