|
Registriert seit: 2. Mär 2004
5.508 Beiträge
Delphi 5 Professional
|
Re: Keyboard Message Queue leeren ?
13. Aug 2004, 12:48
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]
Andreas
|
|
|
Zitat
|