Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Zelius © (2002-12-30 15:21:00)
Всем привет! У меня есть консольное приложение и я хочу, что бы при его окончании программа выдала бы запроса "Press any key" и при нажатии этого кея вывалилась бы! Подскажите плиз, как это сделать?! Спасибо!

Zelius (2002-12-31 14:23:00) [1]
Рабочий кусок тот, который я привел! Он не работал у меня потому, что некоторая гадина на моем компе установила твикер и в нем поставила галку Auto end tasks !!! Поэтому оно и умирало раньше времени, когда я заканчивал приложение нажатием Close.

gsu (2002-12-31 13:03:00) [2]
давай, поясни, интересно

Zelius (2002-12-31 13:01:00) [3]
Все, вопрос закрыт, я во всем разобрался... Если кому надо, то могу пояснить...

Zelius (2002-12-30 18:58:00) [4]
Я нашел как сделать свою задачу:

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;

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

Dona (2002-12-30 15:41:00) [5]
>Roma ©

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

Roma (2002-12-30 15:35:00) [6]
Мда, глупость я сморозил... :( Кажется, в TP7 была функция KeyPressed... Что-то не видно ее в справке...

Yrtimd (2002-12-30 15:33:00) [7]
А моно и MessageBoxom... ну-да а почему у консольного приложения не может быть месседж-бокса.
Windows.MessageBoxEx (0, PChar("Press any key."), PChar("Message box"), mb_Ok or mb_SystemModal);

Yrtimd (2002-12-30 15:33:00) [8]
А моно и MessageBoxom... ну-да, а почему у консольного приложения не может быть месседж-бокса!? ;)

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

Dona (2002-12-30 15:31:00) [9]
readln - ждет Enter

Roma (2002-12-30 15:24:00) [10]
WriteLn("Press any key"); ReadLn;

Наверх

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