Процедура, отслеживающую нажатие клавиш Alt, Ctrl, Shift

@Pantheonptz · Регистрация: 05.05.2017

Студворк — интернет-сервис помощи студентам

Попробовал отследить нажатие с помощью модуля crt однако на нажатие Alt Ctrl Shift не реагирует. Как быть?

Pascal

uses Crt;
 
var
  C : String[2];
  C2, TempS : String;
 
begin
 WriteLn('Нажмите любую клавишу:');
  C := ReadKey;
 Str(Ord(C[1]), TempS);
  C2 := '#' + TempS;
 if C = #0 then
 begin
    C := C + ReadKey;
   Str(Ord(C[2]), TempS);
    C2 := C2 + ', #' + TempS;
 end;
 WriteLn('Вы нажали ', C, ', с кодом ASCII, равным ', C2);
 C := ReadKey;
end.

@ZX Spectrum-128 · 30.03.2018, 12:49

Как узнать коды клавиш?

@Puporev · 30.03.2018, 12:52

ZX Spectrum-128, Расширенные коды клавиш только в модуле GraphABC.

@volvo · 30.03.2018, 13:15

Импортировать GetKeyState ( пример - здесь: Отслеживание событий клавиш в CRT ) и проверять в цикле результат выполнения той функции с нужной маской:

Pascal

1
2
3

if GetKeyState($10) = $8000 then // нажат Shift
if GetKeyState($11) = $8000 then // Control
if GetKeyState($12) = $8000 then // Alt

Процедура, отслеживающую нажатие клавиш Alt, Ctrl, Shift

Решение

Решение

@ZX Spectrum-128 6806 / 4565 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	30.03.2018, 12:49	2
	Сообщение было отмечено Pantheonptz как решение Решение Как узнать коды клавиш? 1

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	30.03.2018, 12:52	3
	Сообщение было отмечено ZX Spectrum-128 как решение Решение ZX Spectrum-128, Расширенные коды клавиш только в модуле GraphABC. 0

Опции темы