определить нажатие CapsLock

Здравствуйте!

Так и не нашлось нормального способа определить нажатие CapsLock?
Здесь уже была ветка, но мне результат оттуда не подходит - на сервере терминала никто не будет устанавливать MS Office только для того, чтобы определить CapsLock.

(0) 1с 8.2

Я пытался сделать так:

        КЛ = ЭлементыФормы.Добавить(Тип("ПолеВвода"), "КапсЛок", Истина, );
    КЛ.Видимость = Истина;
    КЛ.Доступность = Истина;
    КЛ.Ширина = 100;
    КЛ.Высота = 10;
    КЛ.Лево = 10;
    КЛ.Верх = 10;
    ЭтаФорма.ТекущийЭлемент = КЛ;
    Shell = Новый ComОбъект("WScript.Shell");
        Shell.SendKeys("к");
    Сообщить(КЛ.Значение);

Но оно не успевает присвоить значение. Т.е. Shell.SendKeys отрабатывает позднее, чем в процедуре доходит до следующего оператора.
Делать паузу в секунду? я считаю это маразм (((((

я даже вот так попытался, но оно зависло:

        КЛ = ЭлементыФормы.Добавить(Тип("ПолеВвода"), "КапсЛок", Истина, );
    КЛ.Видимость = Истина;
    КЛ.Доступность = Истина;
    КЛ.Ширина = 100;
    КЛ.Высота = 10;
    КЛ.Лево = 10;
    КЛ.Верх = 10;
    ЭтаФорма.ТекущийЭлемент = КЛ;
    Shell = Новый ComОбъект("WScript.Shell");
    Shell.SendKeys("к");
    
    Пока СтрДлина(КЛ.Значение) < 1 Цикл
    КонецЦикла;
    
    Сообщить(КЛ.Значение);

(3) затем что сканер QR-кодов подключен как клавиатура. Устанавливать на каждую из 120 торговых точек сканер через драйвер 1С не советовать - не хочу.

отъеду на два часа, в больницу надо. извините кому не ответил

(6) где такой метод?

(12) знаете, разные раскладки проще. QR-код очень большой и вероятность что он будет состоять только из букв и спецсимволов очень мала, я не беру в учет эту вероятногсть. Я просто анализирую его на наличие русских букв - если хоть одна есть - то действую исходя из принципа что раскладка русская.

(11) не ШК, а QR-код. Мне надо его передавать в Честный знак, а не для поиска в свой базе данных. И передавать надо его правильно. Так что перевод всей строки в большой или малый регистр, как в случае поиска, не подойдет. Нужно чтобы большие буквы были большими, а маленькие маленькими, а не наоборот, как если бы был включен CapsLock

(10) Спасибо, завтра посмотрю.

(13) а почему не ПЖ?

Спасибо всем, дававшим советы. Основываясь на них я сделал следующее:
скачал и зарегистрировал на терминальном сервере компоненту dynwrap.dll
Качал отсюда: https://www.script-coding.com/dynwrap.html версию для NT.
Поскольку у меня 64-система, то пришлось ее (dll-ку) копировать в папку C:\Windows\SysWOW64,
а в папке system32 она регистрироваться не хотела.

ну, запустил командную строку от имени администратора, набрал
regsvr32 C:\Windows\SysWOW64\dynwrap.dll

Это я так подробно даю инструкцию, чтобы другим не мучаться.

    Процедура ОтключитьКапсЛок()
    Врап = Новый COMОбъект("DynamicWrapper");
    Врап.Register("USER32.DLL", "GetKeyState", "i=l", "f=s", "r=l"); 
    res = Врап.GetKeyState(20);
    Если res = 1 тогда
        WshShell = Новый COMОбъект("WScript.Shell");
        WshShell.SendKeys("{CAPSLOCK}");
    КонецЕсли;
    КонецПроцедуры

Обратите внимание, что код клавишы КапсЛок равен 20, это я нагуглил сам.
А если бы речь шла о НумЛоке, то код был бы 144.

Теперь по поводу того что я лентяй:
Во-первых, действительно, лень везде ставить драйвера, настраивать их правильно.
120 точек - это же не просто 120 раз поставить, а не забывать ставить каждый раз пир открытии новой точки,
а это почти каждую неделю (я не говорю что количество точек стремительно растет, какие-то и закрываются).
Вот как это происходит с кассой -
надо поставить драйвер на локальный компьютер, настроить драйвер на RDP под данным пользователем,
настроить драйвер в 1С для данного пользователя. Видите - три кутерьмы для одной точки?
Теперь - точка работает по RDP через мобильный (флешечный) интернет. Как только у точки прерывается связь
(а причин для обрыва связи тыщща - от вины мобильного оператора, до того что продавщица пузом флешку сковырнула),
так сразу связь с кассой через все эти драйвера теряется. Ладно, я написал процедурку и повесил ее на горячей
клавише для воссоединения связи с кассой. Ладно - касса вещь супернужная и когда она не печатает чек - то продавцу
сразу понятно, что что-то неисправно и первое что она сделает (если есть мозги, а это процентов у 20 из всех продавщиц)
это попытается восстановить связь с помощью моей горячей клавиши.
А теперь представим что связь потерялась со сканером. Это мне ще еодни гемморой, в два раза больше звонков?
А некоторые продавщицы просто забьют на сканирование, а потом через неделю скажут на голубом глазу: "а что, сканер же не работает"
В общем, мне эти танцы с драйверами в 1С нафиг не нужны. Я уж лучше через разрыв клавиатуры все запрограммирую.
Поверьте - так удобнее. Тут большинство программеров в вакууме сидит, в своих программистских фирмочках коды кропаете,
а жизни реальной не знаете. Каждый раз когда на заре внедрения 1С (6 лет назад) пыталсь таких 1С-ников приглашать из всяких
контор типа 1СРарус и им подобных - ни бе, ни ме, как бараны, ничего не знают как торговля устроена, никакого толка от них не было ни разу.

(62) не сталкивался с подобным

(65) (66) Да, да, 120 обменов и следить чтобы все вовремя обменялись. Это я уже проходил в другой фирме 7 лет назад с 28 магазинами - пришлось брать специального человека на обмены, чтобы следил и помогал продавцам. сами они даже комп выключить неспособны зачастую. не то что продавцы, даже кураторы торговых точек (а они по сути должны быть толковыми) - когда торговая точка закрывается, возвращают оборудование, а там как правило всегда незакрытая кассовая смена. и хоть кол о башку теши им. также и обмениваться будут - через раз, только когда им это надо (товар пришел). а уж вечером то точно - все домой спешать, не дожидаются когда компьютер сам завершит работу, сразу из розетки выдергивают. так что автоматический обмен тоже не катит. я 17 лет в торговле, знаю о чем говорю. каждое утро (и сегодня не исключение) кто-нибудь из продавщиц звонит мне и возмущается - почему не открывается кассовая смена, ведь она вчера сняла отчет. и всегда оказывается что это был только Х-отчет. Цифры же есть, а больше ей и не надо.

(65) и в конце-концов это требование руководства. когда я 7 лет назад пришел в эту фирму - было всего 12 точек (большей частью оптовых) и начальство привыкло иметь информацию о продажах ежесекундно, в режиме онлайн. И не может заставить себя отказаться от этого, хотя сейчас розничных точек больше, чем оптовых, а схема в 1С остается оптовая - реализация товаров и услуг, ПКО.

(24) Windows Server 2008 R2 x 64 - полет нормальный. Разумеется, скачивал версию для NT и копировал ее в папку C:\Windows\SysWOW64,
а не в папку system32

(74) GetKeyState("{CapsLock}") попробовал - не работает, а без фигурных скобок не пробовал.
там же в примере из (22) видно, что цифровое значение.