Keyboard input/Flush the keyboard buffer: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) No edit summary |
|||
Line 967: | Line 967: | ||
<pre>$ @flush_the_keyboard_buffer ! ignores/discards keystrokes for 10 seconds |
<pre>$ @flush_the_keyboard_buffer ! ignores/discards keystrokes for 10 seconds |
||
$</pre> |
$</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}}== |
=={{header|ERRE}}== |
||
<lang ERRE> |
<lang ERRE> |