Windows平台Delphi控制台应用：如何实现按下任意键继续？

以下是几种实用的实现方式：

• 使用SysUtils单元中的ReadKey函数
  这是Delphi原生的控制台输入函数，调用后会等待任意键按下，可见按键会回显到控制台。代码示例：

  WriteLn('Hit any key to continue...');
  ReadKey; // 等待任意键按下
  

  如果不需要回显按键，直接调用即可（ReadKey本身不会主动输出读取到的字符，仅部分可见按键会被系统自动回显，多数场景下直接使用就足够）。

• 使用Windows API的Getch函数（需引用Windows单元）
  该函数来自Windows系统API，等待任意键按下且不会回显按键内容，适合不需要显示输入的场景。代码示例：

  uses Windows;
  
  // ...
  
  WriteLn('Hit any key to continue...');
  Getch; // 等待任意键按下，无回显
  

• 避坑提示：不要使用ReadLn，它需要用户按下回车键才会继续执行，不符合“任意键触发”的需求。

内容的提问来源于stack exchange，提问作者mjn