| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Jolik ©   (2004-08-04 15:23:00) 

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

if not KeyPressed then begin
...
end;

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

---

Jolik   (2004-08-05 20:46:00) [1]

Если кому интересно - ниже консольный аналог 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;



---

Jolik   (2004-08-05 17:27:00) [2]

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

---

Игорь Шевченко   (2004-08-05 16:54:00) [3]

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


GetStdHandle (STD_INPUT_HANDLE) ?

---

Jolik   (2004-08-05 14:56:00) [4]

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

---

Jolik   (2004-08-05 13:29:00) [5]

Спасибо!

---

Юрий Зотов   (2004-08-04 16:02:00) [6]

Посмотрите описание 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.

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

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

---

Наверх