Работа с клавиатурой
Вывод сообщения при нажатии клавиши Esc — if getasynckeystate($1b)<>0 then ShowMessage(‘Сообщение’); // Для таймера Изменить раскладку клавиатуры на английскую — LoadKeyboardLayout(‘00000409’, KLF_ACTIVATE); Изменить раскладку клавиатуры на русскую — LoadKeyboardLayout(‘00000419’, KLF_ACTIVATE); Узнать раскладку клавиатуры — GetKeyboardLayoutName(value); if value= ‘00000409’ then ShowMessage(‘Используется английский’); if value= ‘00000419’ then ShowMessage(‘Используется Русский’); // value: array [0.. KL_NAMELENGTH] of char;