Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
ВнизCRT и Console Найти похожие ветки
← →
Bachin (2003-06-13 13:18) [3]могу посоветовать ссылки на готовые реализации. принцип такой:
procedure ProcessConsoleEvents;
var
I: Integer;
EventCount, EventsRead: DWORD;
InputRecord: TInputRecord;
begin
EventCount := 0;
GetNumberOfConsoleInputEvents(InHandle, EventCount);
for I := 1 to EventCount do
begin
ReadConsoleInput(InHandle, InputRecord, 1, EventsRead);
if InputRecord.EventType = KEY_EVENT then
HandleKeyEvent(InputRecord)
else if InputRecord.EventType = MOUSE_EVENT then
HandleMouseEvent(InputRecord);
end;
end;
ну а дальше смотришь:
InputRecord.Event.KeyEvent.dwControlKeyState;
ну и:
if InputRecord.Event.KeyEvent.bKeyDown then
begin
VirtualKeyCode := InputRecord.Event.KeyEvent.wVirtualKeyCode;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.027 c