相关疑难解决方法(0)

我在delphi 7中创建了一个控制台应用程序,它应该在你按下回车键后显示消息:

begin
  writeln ('Press ENTER to continue');
  readln;
  writeln ('blablabla');
  writeln ('blablabla');
end;

问题是用户可以按任何按钮继续,这就是问题所在.如果用户按下键盘的输入按钮,我只希望程序继续.除此之外,我需要它在一段时间后自动继续,例如5秒,无需用户输入.

如何让控制台应用程序等待一段时间让用户按下Enter键,但如果用户没有,则自动继续？

我有一个delphi控制台应用程序,我需要在用户按任意键时终止,问题是我不知道如何实现一个功能来检测按键何时,我想这样做.

{$APPTYPE CONSOLE}

begin
 MyTask:=MyTask.Create;
 try
 MyTask.RunIt; 
  while MyTask.Running and not IsKeyPressed do //how i can implement a IsKeyPressed  function?
    MyTask.SendSignal($56100AA);
 finally
   MyTask.Stop;
   MyTask.Free;
 end;

结束.