Keyboard Message Queue leeren ?

[shmia]

Hi,

wie kann ich denn den Tastaturpuffer leeren ?
Ich habe noch dunkel in Erinnerung, dass es da eine Win-API Funktion gibt, die
den Puffer leert (Übergabeparameter war timeout in ms). :gruebel:

Hintergrund: ich habe einen Dialog und möchte sicherstellen, dass der Benutzer
alles gelesen hat, bevor ich auf Tastendrück reagiere.

[shmia]

Ich habs:

Delphi-Quellcode:

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]