Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c