Вниз
Скачать: CL | DM;

Есть тут знатоки С   Найти похожие ветки 

← →
ПЛОВ ©   (2005-11-21 10:39) [0]

Пишу на Биледере програмулину, консольную... Не реагирует на нажатие клавиш, хотя то же самое, написанное на Делфи работает без проблем...
Подскажите, в чем может быть проблема...

WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
...
 HANDLE ConsoleOutputHANDLE;
 HANDLE ConsoleInputHANDLE;

 COORD Console_COORD;
 CONSOLE_SCREEN_BUFFER_INFO OutScreenInfo, InScreenInfo;

 LPCTSTR S;
 LPDWORD WR;
 INPUT_RECORD IR;

//////////////////////////////////////////
/// Begin program
//////////////////////////////////////////
........
// Create console
AllocConsole();
SetConsoleTitle(AppName);
// Get output handle
ConsoleOutputHANDLE = GetStdHandle(STD_OUTPUT_HANDLE);
// Get input handle
ConsoleInputHANDLE = GetStdHandle(STD_INPUT_HANDLE);
// Set max console size
Console_COORD.X = ConSizeDefX; Console_COORD.Y = ConSizeDefY;
SetConsoleScreenBufferSize(ConsoleOutputHANDLE, Console_COORD);
Console_COORD.X = ConSizeDefX; Console_COORD.Y = ConSizeDefY;
SetConsoleScreenBufferSize(ConsoleInputHANDLE, Console_COORD);

FlushConsoleInputBuffer(ConsoleInputHANDLE);
do
 {
 GetNumberOfConsoleInputEvents(ConsoleInputHANDLE, WR);
   if (WR != 0)
   {
   PeekConsoleInput(ConsoleInputHANDLE, &IR, 1, WR); // тут пробовал и ReadConsoleInput
     if (IR.EventType == KEY_EVENT)
     {
     MessageBox(0, "test", "test", 0);  - при нажатии клавиши должно выводиться это сообщение
     }
   }
 }
while (IR.Event.KeyEvent.wVirtualKeyCode != VK_F1); и выхода из программф не происходит при нажатии на F1 :(

FreeConsole();
return 0;
}


← →
ПЛОВ ©   (2005-11-21 12:57) [1]

ндя... типа всем спасибо :) разобрался сам...
В связи с этим посоветуйте хорошие форумы наподобии этого только по Билдеру (и по C вообще)


← →
VictorT ©   (2005-11-21 15:58) [2]

rsdn.ru ?



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

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



Память: 0.45 MB
Время: 0.045 c
1-1132156397
markers
2005-11-16 18:53
2005.12.11
"Конец перетаскивания"


2-1132637227
Рафик
2005-11-22 08:27
2005.12.11
Из Delphi3 в Delphi7


14-1132302191
pic509
2005-11-18 11:23
2005.12.11
Ограничения в Database Descktop под Delphi ?


14-1132568115
Pazitron_Brain
2005-11-21 13:15
2005.12.11
Кто ведет здоровый образ жизни?


4-1123885355
Германн
2005-08-13 02:22
2005.12.11
"Безопасное извлечение устойства"




   Наверх