| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Для новичков > Как корректно прервать консольное приложение? |
| Автор: r3d 13.11.2014, 16:47 |
| Необходимо корректно прервать консольное приложение, т.е. так, чтобы оно закончило цикл и остановилось (а не на середине выполнения, как по Ctrl+C). Необходимый способ остановки: 1. Cелать консоль активной 2. Нажать ESC. На данный момент try закрывается until-ом такого вида: until (LoWord(GetKeyState(VK_ESCAPE)) = 1); Write ('ready '); Writeln('press enter to exit'); Readln; Неудобства: 1. если в рамках системы ESC остался нажатым, то приложение всё время сразу будет выходить по заканчиванию цикла, пока не нажмёшь снова. Хочется именно завязать нажатие кнопки в контекст активного окна консоли... Подскажите, пожалуйста, как это можно сделать.. ? |