Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.29;
Скачать: CL | DM;

Вниз

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

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

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

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

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

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


 
©   (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 вся ветка

Текущий архив: 2003.05.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
1-94807
Renegate
2003-05-19 08:29
2003.05.29
Графика в RichEdit.


3-94710
Пикулев Евгений
2003-05-08 05:57
2003.05.29
Как из одной таблицы принять данные в другую такуюже


1-94858
Sensor
2003-05-19 23:59
2003.05.29
ShellExecute + PopupMenu


1-94833
BJValentine
2003-05-19 18:11
2003.05.29
Outlook Express


1-94818
Hooch
2003-05-19 13:15
2003.05.29
---|Ветка была без названия|---