Как сделать консольное приложение в Delphi 7, реагирующее на клавишу Enter и таймер

Delphi , ОС и Железо , DOS и Консоль

Вопрос, который вы задали, заключается в создании консольного приложения на Delphi 7, которое будет ожидать нажатия клавиши Enter, но также должно автоматически продолжить выполнение через определённый промежуток времени, например, 5 секунд, если пользователь не ввёл данные. Это можно реализовать с помощью функции ожидания ввода и установки таймера, который будет вызывать продолжение выполнения программы в случае, если пользователь не отреагировал в заданный интервал времени.

Решение проблемы:

Для решения данной задачи можно использовать следующий алгоритм:

1. Ожидание нажатия клавиши Enter с помощью функции Readln.
2. Установка таймера, который будет вызывать функцию продолжения выполнения программы через заданное время.

Пример кода:

program ConsoleApp;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Windows;

var
  TimerID: DWORD;
  TimerProc: TTimerProc;

function TimerCallback(hWnd, uMsg, nIDEvent, dwTime): DWORD; stdcall;
begin
  // Здесь код, который будет выполнен по истечении таймера
  // Например, вызов функции продолжения выполнения программы
  KillTimer(nil, TimerID);
  // Дальнейший код программы
end;

procedure WaitForEnterOrTimeout(Timeout: Integer);
begin
  // Установка таймера на 5 секунд
  TimerID := SetTimer(nil, 0, Timeout, @TimerCallback);
  // Ожидание нажатия Enter
  Readln;
  // Если пользователь нажал Enter, таймер будет уничтожен
  KillTimer(nil, TimerID);
end;

begin
  writeln ('Press ENTER to continue or wait for 5 seconds');
  WaitForEnterOrTimeout(5000); // 5000 миллисекунд = 5 секунд
  writeln ('blablabla');
  writeln ('blablabla');
end.

В этом примере кода используется функция SetTimer для установки таймера, который вызовет процедуру TimerCallback через заданный интервал времени. Если пользователь нажимает клавишу Enter, выполнение программы продолжается, и таймер уничтожается функцией KillTimer. Если пользователь не реагирует, таймер вызовет функцию продолжения выполнения программы, и программа продолжит своё выполнение автоматически.

Обратите внимание, что для корректной работы с таймерами в консольном приложении необходимо использовать функции Windows API, такие как SetTimer, KillTimer и обработчик таймера TimerProc.

Альтернативный ответ:

В контексте альтернативного ответа, представленного в контексте, можно использовать следующий подход:

uses
  System.SysUtils,
  System.Classes,
  Windows;

type
  TKeyEvent = record
    KeyCode: Word;
    TimeOut: Integer;
    function Execute: Boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  constructor Create(AKeyCode: Word; ATimeOut: Integer);
  end;

constructor TKeyEvent.Create(AKeyCode, ATimeOut: Integer);
begin
  KeyCode := AKeyCode;
  TimeOut := ATimeOut;
  if TimeOut = 0 then
    TimeOut := 5000; // 5 секунд по умолчанию
end;

function TKeyEvent.Execute: Boolean;
var
  hIn: THandle;
  lpBuffer: TInputRecord;
  dwEvents: DWORD;
  dwEventsRead: DWORD;
begin
  hIn := GetStdHandle(STD_INPUT_HANDLE);
  if hIn = INVALID_HANDLE_VALUE then
    RaiseLastOSError;
  Result := False;
  if TimeOut > 0 then
    SetTimer(nil, 0, TimeOut, @WaitForKeyTimeout);
  repeat
    if GetNumberOfConsoleInputEvents(hIn, dwEvents) and (dwEvents > 0) then
    begin
      if ReadConsoleInput(hIn, lpBuffer, 1, dwEventsRead) then
      begin
        if (lpBuffer.EventType = KEY_EVENT) and (lpBuffer.Event.KeyEvent.AsciiChar <> #0) then
        begin
          if lpBuffer.Event.KeyEvent.wVirtualKeyCode = KeyCode then
          begin
            Result := True;
            KillTimer(nil, 0);
            Break;
          end;
        end;
      end;
    end;
    Sleep(100);
  until Result or (GetTickCount >= TimeOut);
end;

function WaitForKeyTimeout(hWnd: HWND; uMsg: UINT; nIDEvent: UINT; dwTime: DWORD): DWORD; stdcall;
begin
  // Здесь код, который будет выполнен по истечении таймаута ожидания ввода
  Result := 0;
end;

{ TKeyEvent }

procedure WaitForKey(AKeyCode: Word; ATimeOut: Integer);
var
  KeyEvent: TKeyEvent;
begin
  KeyEvent := TKeyEvent.Create(AKeyCode, ATimeOut);
  Result := KeyEvent.Execute;
end;

begin
  writeln('Press ENTER to continue or wait for 5 seconds');
  WaitForKey(VK_RETURN, 0); // Ожидание нажатия Enter или таймаут
  writeln('blablabla');
  writeln('blablabla');
end.

Этот код использует класс TKeyEvent, который управляет ожиданием нажатия определённой клавиши с возможностью установки таймаута. Функция WaitForKey использует экземпляр TKeyEvent для выполнения указанной задачи.

Обратите внимание, что для корректной работы с таймерами и обработчиком таймаута, необходимо зарегистрировать функцию WaitForKeyTimeout в качестве обработчика сообщений для окна консоли, если это необходимо, или использовать другие средства для корректной работы в многопоточной среде консольного приложения без сообщений.

Используя эти примеры, вы сможете создать консольное приложение в Delphi 7, которое будет ожидать нажатия клавиши Enter и автоматически продолжить выполнение после истечения установленного таймаута.

Создано по материалам из источника по ссылке.

Создание консольного приложения на Delphi 7, которое реагирует на нажатие клавиши Enter и автоматически продолжает выполнение через заданный промежуток времени, если пользователь не ввёл данные.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: DOS и Консоль ::