Any Key для консольного приложения

← →
User (2003-05-18 12:16) [0]

Нужно чтоб не закрывалось окно консоли до нажатия любой клавиши пользователя??

пробовал так :

Var
a : Char;
Begin
a := #00;
While a=#00 Do
ReadLn(a);

Но все равно нужно жать Enter, а хочется чтоб на любую клавишу

← →
L (2003-05-18 12:30) [1]

Если результат не интересен то KeyPressed
иначе ReadKey

← →
Palladin (2003-05-18 12:40) [2]

> L © (18.05.03 12:30)

да что вы говорите :)
во первых keypressed не просто а repeat until keypressed и считывать нажатую клавишу все равно придется, во вторых не путай консольные win32 приложения и приложения под dos...
crt модуля в делфи нет...

← →
DrPass (2003-05-18 12:48) [3]

виндовый аналог - ReadConsoleInput

← →
Юрий Зотов (2003-05-18 12:56) [4]

Ну, положим, для ожидания Enter"а не нужно никаких переменных и никаких циклов. Пишем ReadLn, и больше ничего.

А для ожидания любого символа посмотрите в справке API:
ReadConsole
ReadConsoleInput
ReadFile
WaitForSingleObject

← →
User (2003-05-18 18:47) [5]

2 Юрий Зотов

Спасибо, за подсказку.

← →
Zelius (2003-05-18 20:11) [6]

if WaitAnyKey then
begin
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;
end;

Any Key для консольного приложения Найти похожие ветки