Keyboard input/Flush the keyboard buffer: Difference between revisions
Keyboard input/Flush the keyboard buffer (view source)
Revision as of 17:31, 1 September 2020
, 3 years agono edit summary
MaiconSoft (talk | contribs) No edit summary |
|||
Line 967:
<pre>$ @flush_the_keyboard_buffer ! ignores/discards keystrokes for 10 seconds
$</pre>
=={{header|Delphi}}==
{{libheader| Winapi.Windows}}
<lang Delphi>
program Flush_the_keyboard_buffer;
{$APPTYPE CONSOLE}
uses
Winapi.Windows;
var
StdIn: THandle;
begin
StdIn := GetStdHandle(STD_INPUT_HANDLE);
Writeln('Press any key you want, they will be erased:');
Sleep(5000);
FlushConsoleInputBuffer(StdIn);
Writeln('Now press any key you want, they will NOT be erased:');
readln;
end.</lang>
=={{header|ERRE}}==
<lang ERRE>
|