VPF::hook keyboard - Форум программистов

rith2

Дата 18.5.2009, 20:55 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 29.4.2008

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

Привет

Пытаюсь поменять раскладку клавиатуры в приложении, путем перехвата нажатия некоторой кобы клавиш - пока что получается менять при нажатии правой кнопкой мыши (WM_RBUTTONDOWN), а как перехватить комбинацию клавиш???

Код


library hook_dll1;

var
  SysHook : HHook = 0; 
  Wnd : Hwnd = 0;

function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var
  lang : HKL;
begin
    Wnd:=TMsg(Pointer(lParam)^).hwnd;

  if TMsg(Pointer(lParam)^).message = WM_RBUTTONDOWN then    //Нажата правая кнопка мыши
               ActivateKeyboardLayout(0,HKL_NEXT);    //переключаем раскладку
  Result:= CallNextHookEx(SysHook, Code, wParam, lParam);
end;

{ Процедура установки HOOK-а}
procedure hook(switch : Boolean) export; stdcall;
begin
  if switch=true then
  begin
    SysHook := SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, 0);
  }

   end
  else

  begin
    if UnhookWindowsHookEx(SysHook) then
      MessageBox(0, 'HOOK1 снят !', 'Message from Exampel1/Process1', 0)
    else
      MessageBox(0, 'HOOK1 снять не удалось !', 'Message from Exampel1/Process1', 0);

    SysHook := 0;
  end;
end;

exports hook;

begin
end.

kami

Дата 19.5.2009, 23:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72

Цитата(rith2 @ 18.5.2009, 20:55

)

как перехватить комбинацию клавиш

1 вариант: Обрабатывать WM_KEYDOWN, запоминая нажатие нужных клавиш. Если обе клавиши нажаты - комбинация сработала. А вот переключать раскладку afair лучше по WM_KEYUP, ибо если клавишу долго держат нажатой, то придет несколько WM_KEYDOWN и ни одного WM_KEYUP. Чем это грозит - наверное представляете, юзер спасибо не скажет smile

2. вариант:
ловить WM_KEYUP только для одной клавиши, а состояние второй получать через GetAsyncKeyState.

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