Тема: Различить вид регистра
Показать сообщение отдельно
  #2  
Старый 23.05.2015, 01:09
Аватар для angvelem
angvelem angvelem вне форума
.
  
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию
Так у вас идёт отлов клавиш от A до Z ($41..$63). a..z = $61..$7A.
То есть:
Код:
for X:=65 to 122 do
begin
  if X in [65..90, 97..122] then 
    if GetAsyncKeyState(X)=-32767 then
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием