[SCrat.ORS]

Переключается раскладки клавиатуры через Caps-Lock.
Лампочка Scroll-lock'а - отображает текущий язык ввода.
Непосредственно режим caps-lock включается/выключается клавишами shift+caps-lock.
Написано на основе lswitch + KbLangLED, но использование 2 утилит мне не понравилось, поэтому решил совместить их в одной программе.

скачать исходники можно отсюда

[Freeman]

Во-первых, выложенный исходник не компилируется, потому как содержит ошибки. И часть ошибок намекает на то, что код переводили с C++.

Во-вторых, после исправления ошибок мне удалось собрать программку с более чем в 4 раза меньшим размером -- с модулями KOL. Для мелких утилит -- самое то. Работоспособность вроде сохранилась.

Какая лицензия у исходника, кстати?

[SCrat.ORS]

Сообщение от Freeman

Во-первых, выложенный исходник не компилируется, потому как содержит ошибки. И часть ошибок намекает на то, что код переводили с C++.

Я писал на Делфи 2006, все компилируется без проблем.
в коде разница только в этом?

Код:

{$IFDEF Tricks}
  HeapMM,
{$ENDIF}

И что это даёт?...

З.Ы. скомпилировав твоё вышло почти 83 кб... чем компилируешь ты?
З.Ы.Ы. С ужосом заметил, что выложил не ту версию исходников, перезалил туда же.

Лицензия - с указанием моего авторства в составе желательно. А так свободная - мне не жалко.

[angvelem]

Сообщение от SCrat.ORS

З.Ы. скомпилировав твоё вышло почти 83 кб... чем компилируешь ты?

Учимся читать

Сообщение от Freeman

с модулями KOL

А мне KOL не нравится уж лучше на "чистом" API.

[SCrat.ORS]

Сообщение от angvelem

Учимся читать
А мне KOL не нравится уж лучше на "чистом" API.

KOL ... хм не слышал, почитаю гугл =)

на API - был вариант сделать,. но как-то влом расписывать потоки

[angvelem]

Действительно код писан на С, а потом перенесён в Дельфи без понимания сути. После исправления ошибок (Hi Freeman) , скомпилировался.

[SCrat.ORS]

Сообщение от angvelem

Действительно код писан на С, а потом перенесён в Дельфи без понимания сути. После исправления ошибок (Hi Freeman) , скомпилировался.

Бралось действительно с Си, но вот не без понимания сути. Суть ясна прекрасно.
3 пост.

[angvelem]

Ну тогда объясни, зачем здесь &

Код:

  while GetMessage(&msg, 0, 0, 0) do
  begin
    TranslateMessage(&msg);
    DispatchMessage(&msg);
  end;

[SCrat.ORS]

Сообщение от angvelem

Ну тогда объясни, зачем здесь &

Код:

  while GetMessage(&msg, 0, 0, 0) do
  begin
    TranslateMessage(&msg);
    DispatchMessage(&msg);
  end;

Да, этот момент переехал вместе с Си... как то упустил.

Вообще тогда меня больше мучал вопрос, как сделать Хуки без ДЛЛ, и почему когда Хук работает без Длл, и при вставке кода ЛЕД в цикл GetMessage, хук переставал работать?...

[angvelem]

Потому что DLL может "встраиваться" в "чужие" процессы, exe-шникам это запрещено.

[SCrat.ORS]

Да, но ведь работает в ехе!
Вообще как я понял, для работы хука надо просто запретить трансляцию месагов,...

[angvelem]

При запуске из консоли (FAR), скрывает значок смены "языка" и Scroll-lock не переключается.

Да, но ведь работает в ехе!

конечно, ведь используется "нить".

[SCrat.ORS]

Сообщение от angvelem

При запуске из консоли (FAR), скрывает значок смены "языка" и Scroll-lock не переключается.

быть может при активном окне FAR консоль использует свои хуки?

вот идея которую я не смог реализовать в сей программке:
включение/выключения режима CAPS-LOCK при нажатии shift + caps-lock, или двойным нажатием на caps-lock. При реализации получалось что при определённых моментах срабатывает, но после включения CAPS-LOCK назад он не выключался, или выключался но после того как сменишь раскладку... вообщем бред какой то получался. так я и сдался.

[angvelem]

Ну правильно, у тебя проверяется только на CapsLock без учёта других клавиш

Код:

  fEatKeystroke := (p^.vkCode = 20);

а как же это?

Specifies the extended-key flag, event-injected flag, context code, and transition-state flag. This member is specified as follows. An application can use the following values to test the keystroke flags. Value Purpose
LLKHF_EXTENDED Test the extended-key flag.
LLKHF_INJECTED Test the event-injected flag.
LLKHF_ALTDOWN Test the context code.
LLKHF_UP Test the transition-state flag.

0 Specifies whether the key is an extended key, such as a function key or a key on the numeric keypad. The value is 1 if the key is an extended key; otherwise, it is 0.
1-3 Reserved.
4 Specifies whether the event was injected. The value is 1 if the event was injected; otherwise, it is 0.
5 Specifies the context code. The value is 1 if the ALT key is pressed; otherwise, it is 0.
6 Reserved.
7 Specifies the transition state. The value is 0 if the key is pressed and 1 if it is being released.

[SCrat.ORS]

Конечно, я же убрал другие проверки клавиш перед тем как выложить исходник. Пробывал всталял проверки шифта, или счетчик нажатий капса, что бы не только можно было переключит раскладку, но и включить капс. И мне показалось, что при включенном капсе скан коды как-будто изменяются.