如何在 Delphi 控制台应用程序中等待直到按下任意键？

Question

在控制台应用程序中，后面应该出现什么代码

WriteLn('Hit any key to continue...');

等待直到按下任意键？

---

目标平台：Windows

Answer 1

最重要的 Win32 函数之一是

WaitForSingleObject

。事实上，当您编写除非常简单的单线程应用程序之外的任何内容时，您总是依赖此函数及其相关函数。

通常，您等待事件、互斥体、进程等，但您也可以等待控制台输入：

program Project4;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

begin
  Writeln('Press any key to continue.');
  FlushConsoleInputBuffer(GetStdHandle(STD_INPUT_HANDLE));
  WaitForSingleObject(GetStdHandle(STD_INPUT_HANDLE), INFINITE);
  Writeln('Thank you for pressing that key.');
  Sleep(1000);
end.