VPF::Блокировка Caps Lock - Форум программистов

Ciber SLasH

Дата 24.3.2006, 00:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1813
Регистрация: 9.11.2004
Где: С.-Петербург

Репутация: 1
Всего: 67

Я вот пытался по вопросу Vit-а: http://forum.vingrad.ru/index.php?showtopi...st&p=681324
заблокировать Insert и CapsLock. Всё получилось, но при блокировке CapsLock-а мигает светодиод (что не очень красиво).
Вот кусок перехватывающей функции:

Код


{--- Функция перехвата клавиатуры ---}
function KeyboardProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  sReturn: PMsg;  // структура возврата
  KeyState: TKeyboardState;
begin
  Result := 0;
  if (nCode < 0) or (wParam = PM_NOREMOVE) then
  begin
    Result := CallNextHookEx(GlobalData^.SysHook, nCode, wParam, lParam);  // отдаём на съедение другим :)
    Exit
  end;
  // Проверяю сообщение
  if nCode = HC_ACTION then
  begin
    sReturn := PMsg(lParam);
    case sReturn^.message of
      WM_KEYDOWN:
        case sReturn^.wParam of
          VK_CAPITAL, VK_INSERT:
          begin
            GetKeyboardState(KeyState);
            if Odd(KeyState[VK_CAPITAL]) then
            begin
              // Имитируем нажатие CapsLock'a
              Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
              // Имитируем отжатие CapsLock'a
              Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0)
            end;
            sReturn^.message := WM_NULL;  // подменяем сообщение
            //Result := CallNextHookEx(GlobalData^.SysHook, nCode, wParam, lParam);  // отдаём на съедение другим :)
          end
        end  { case: VK_* }
    end  { case: WM_* }
  end  { if ... }
end;

по идеи возврат нулевого сообщения в строке 31 должен решать все вопросы связанные с заменой сообщений. Т.е. как тока сообщение сменили на WM_NULL, то сообщение нажатия клавиши не должно сработать, — так и происходит для обычных клавиш, но эта фишка не работает с CapsLock, поэтому пришлось имитировать отжатие этой клавиши, что не очень правильно.
Есть ли нормальное решение для блокировки CapsLock-а?

Это сообщение отредактировал(а) Ciber SLasH - 24.3.2006, 01:00

Quadr0

Дата 24.3.2006, 03:56 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:55

Ciber SLasH

Дата 24.3.2006, 06:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1813
Регистрация: 9.11.2004
Где: С.-Петербург

Репутация: 1
Всего: 67

Цитата(Quadr0 @ 24.3.2006, 03:56

)

Попробуй кроме сообщения ещё все остальныя поля структуры сообщения обнулить.

Пробовал, не помогает. Ну да ладно, тут видимо нужно в Ring0 лезть, а с этим я ещё не сталкивался...

Romikgy

Дата 24.3.2006, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Код



        case sReturn^.wParam of
          VK_CAPITAL, VK_INSERT:
          begin
            {GetKeyboardState(KeyState);
            if Odd(KeyState[VK_CAPITAL]) then
            begin
              // Имитируем нажатие CapsLock'a
              Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
              // Имитируем отжатие CapsLock'a
              Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0)
            end;}
            sReturn^.wParam := $97;
            sReturn^.message := WM_NULL;

А так ? проверь а?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Ciber SLasH

Дата 25.3.2006, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1813
Регистрация: 9.11.2004
Где: С.-Петербург

Репутация: 1
Всего: 67

Цитата(Romikgy @ 24.3.2006, 13:54

)

А так ? проверь а?

Нет, так вообще не блокируется.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »