Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#1

Keyboard Message Queue (Tastaturpuffer) leeren

  Alt 22. Apr 2005, 15:56
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]
Andreas
  Mit Zitat antworten Zitat