Keyboard Message Queue leeren ?

[shmia]

Ich habs:WaitForInputIdle(GetCurrentProcess, 20 {ms}); [Edit]
besser ist wohl so:

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]