Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
6-94987
Gerda
2003-03-31 15:08
2003.05.29
ShellExecute или WinExec ? & TNMHTTP


3-94733
Levan Varshanidze
2003-05-07 09:14
2003.05.29
Вопрос по SQL (MS SQL Server)


14-95021
Пастор
2003-05-11 18:31
2003.05.29
Память, занимаемая программой


3-94700
P.Kert
2003-05-07 11:31
2003.05.29
TEST


4-95171
anbezr
2003-04-02 11:50
2003.05.29
запись в HKLM в ХР





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский