Как в консольном приложении реализовать Press any key при выходе?

← →
Zelius (2002-12-30 15:21) [0]

Всем привет! У меня есть консольное приложение и я хочу, что бы при его окончании программа выдала бы запроса "Press any key" и при нажатии этого кея вывалилась бы! Подскажите плиз, как это сделать?! Спасибо!

← →
Roma (2002-12-30 15:24) [1]

WriteLn("Press any key"); ReadLn;

← →
Dona (2002-12-30 15:31) [2]

readln - ждет Enter

← →
Yrtimd (2002-12-30 15:33) [3]

А моно и MessageBoxom... ну-да а почему у консольного приложения не может быть месседж-бокса.
Windows.MessageBoxEx (0, PChar("Press any key."), PChar("Message box"), mb_Ok or mb_SystemModal);

← →
Yrtimd (2002-12-30 15:33) [4]

А моно и MessageBoxom... ну-да, а почему у консольного приложения не может быть месседж-бокса!? ;)

Windows.MessageBoxEx (0, PChar("Press any key."), PChar("Message box"), mb_Ok or mb_SystemModal);

← →
Roma (2002-12-30 15:35) [5]

Мда, глупость я сморозил... :( Кажется, в TP7 была функция KeyPressed... Что-то не видно ее в справке...

← →
Dona (2002-12-30 15:41) [6]

>Roma ©

Должна быть KeyPressed. А еще, вроде бы, ReadKey

← →
Zelius (2002-12-30 18:58) [7]

Я нашел как сделать свою задачу:

h := GetStdHandle(STD_INPUT_HANDLE);
if h <> INVALID_HANDLE_VALUE then
begin
WriteDebugMsg("Press any key...");
SetConsoleMode( h, 0);
ReadConsole( h, @c, 1, i, nil);
CloseHandle(h);
end;

Но оно не срабатывает, когда приложение закрывается нажатием крестика в правом верхнем углу! Кто-нибудь с этим сталкивался?

← →
Zelius (2002-12-31 13:01) [8]

Все, вопрос закрыт, я во всем разобрался... Если кому надо, то могу пояснить...

← →
gsu (2002-12-31 13:03) [9]

давай, поясни, интересно

← →
Zelius (2002-12-31 14:23) [10]

Рабочий кусок тот, который я привел! Он не работал у меня потому, что некоторая гадина на моем компе установила твикер и в нем поставила галку Auto end tasks !!! Поэтому оно и умирало раньше времени, когда я заканчивал приложение нажатием Close.

Как в консольном приложении реализовать Press any key при выходе? Найти похожие ветки