Аналог KeyPressed() в Console Application...

← →
Jolik (2004-08-04 15:23) [0]

Здравствуйте!
Вот раньше было время цикл программы состоял из:

if not KeyPressed then begin
...
end;

Как бы такой сделать в консольном приложении под Дельфями?
Спасибо!

← →
Юрий Зотов © (2004-08-04 16:02) [1]

Посмотрите описание ReadConsoleInput. Там в конце есть такое примечание:

Remarks

If the number of records requested in the nLength parameter exceeds the number of records available in the buffer, the number available is read. The function does not return until at least one input record has been read.

A process can specify a console input buffer handle in one of the wait functions to determine when there is unread console input. When the input buffer is not empty, the state of a console input buffer handle is signaled.

==================================================

Вот и целых два ответа на Ваш вопрос. Выбирайте более подходящий.

← →
Jolik (2004-08-05 13:29) [2]

Спасибо!

← →
Jolik (2004-08-05 14:56) [3]

а где взять HANDLE hConsoleInput для передачи в функцию?

← →
Игорь Шевченко © (2004-08-05 16:54) [4]

> а где взять HANDLE hConsoleInput для передачи в функцию?

GetStdHandle (STD_INPUT_HANDLE) ?

← →
Jolik (2004-08-05 17:27) [5]

Спасибо, попробую!

← →
Jolik (2004-08-05 20:46) [6]

Если кому интересно - ниже консольный аналог Win32 для DOS програм типа

while not KeyPressed then begin
...
end;

ЗЫ: Исходный текст на С содрал в инете - каюсь :((( Ссылку потерял - если вдруг хозяин объявится :)))

uses Windows // переменные поддержки чтения с клавиатуры в консольном приложении ir : INPUT_RECORD; hCon : THandle; NumOfEvents : Cardinal; NumOfEventsRead : Cardinal; i : integer; done : boolean; begin try writeln("Press Esc to Exit."); done := FALSE; (********* основной цикл работы (до нажатия ESC) **************) while (not done) do begin // читаем Windows сообщения нашему приложению if not GetNumberOfConsoleInputEvents(hCon, NumOfEvents) then raise EInOutError.CreateFmt( "GetNumberOfConsoleInputEvents failed %s", [SysErrorMessage(GetLastError)]); // перебираем в поисках наджатия ESC for i := 0 to NumOfEvents-1 do begin if (not ReadConsoleInput(hCon, ir, 1, NumOfEventsRead)) then raise EInOutError.CreateFmt( "ReadConsoleInput failed %s", [SysErrorMessage(GetLastError)]); if (NumOfEventsRead = 1) then done := (ir.EventType = KEY_EVENT) and ir.Event.KeyEvent.bKeyDown and (ir.Event.KeyEvent.wVirtualKeyCode = VK_ESCAPE); end; end; except on E : Exception do begin writeln(Format("Exception: %s", [E.Message])); end; end;

Аналог KeyPressed() в Console Application... Найти похожие ветки