WH_KEYBOARD_LL Хук, русские буквы из чужого окна

@x-help · Регистрация: 18.10.2013

Author24 — интернет-сервис помощи студентам

Всем привет!
Перехватываю нажатия клавиш... но к сожалению не получается перехватить буквы с разной раскладкой =(

если печатаю в своём же окне то всё ок!
делаю это так:

Delphi

  SC := MapVirtualKey(PBDLLHOOKSTRUCT(lParam).vkCode, MAPVK_VK_TO_VSC);
  VK := MapVirtualKey(PBDLLHOOKSTRUCT(lParam).scanCode, MAPVK_VSC_TO_VK);
 
  if code>=0 then
  begin
 
 
    if (wParam=WM_KEYDOWN) then
    begin
 
    GetKeyboardState(KS);
    ToUnicode(VK,SC,KS,@Ch,Sizeof(Ch),0);
    Form1.Edit1.Text:=Form1.Edit1.Text+ch;
 
 
    end;

но из чужих окон всё приходит на одном и том же языке и регистр не учитывается =(

в чём может быть проблема?

Добавлено через 3 часа 30 минут
провозился весь день сделал так:

Delphi

function xToUnicode(key: word): char;
var
 newHKL: PWideChar;
 KS: TKeyboardState;
 Ch: Char;
 VK, SC: cardinal;
 layout:integer;
begin
 
    layout:= GetKeyboardLayout(GetWindowThreadProcessID(GetForegroundWindow,nil)) shr 16;
 
    newHKL:=PChar('0000'+IntToHex(layout,4));
 
 
    SC := MapVirtualKeyEx(Key, MAPVK_VK_TO_VSC,LoadKeyboardLayout(newHKL, KLF_ACTIVATE ));
    VK := MapVirtualKeyEx(SC, MAPVK_VSC_TO_VK,LoadKeyboardLayout(newHKL,KLF_ACTIVATE));
 
    GetKeyboardState(KS);
    ToUnicode(VK,SC,KS,@Ch,Sizeof(Ch),0);
 
    result:=ch;
end;

но LoadKeyboardLayout(newHKL, KLF_ACTIVATE ) с флагом KLF_ACTIVATE очень тормозит... 1 -3 сек

а с другими флагами не получается

murderer · 12.03.2019, 04:30

MapVirtualKeyEx с флагом MAPVK_VK_TO_CHAR, должно сразу выдать юникод в младшем слове результата.

@x-help · 12.03.2019, 10:11 **[ТС]**

эмм а как получить младшее слово?

то есть вот так?

Delphi

1	SC := MapVirtualKey(Key, MAPVK_VK_TO_CHAR);

а VK так и оставить???

Delphi

1	VK := MapVirtualKeyEx(SC, MAPVK_VSC_TO_VK,LoadKeyboardLayout(newHKL,KLF_ACTIVATE));

???

murderer · 12.03.2019, 11:30

Пример ставит хук на клавиатуру и выводит в MessageBox нажатую клавишу (для выхода нажать escape).

Pascal

uses
  Windows, Messages;
 
const
  WH_KEYBOARD_LL=13;
  MAPVK_VK_TO_CHAR=2;
 
type
  tagKBDLLHOOKSTRUCT=packed record
                     vkCode:      Cardinal;
                     scanCode:    Cardinal;
                     flags:       Cardinal;
                     time:        Cardinal;
                     dwExtraInfo: pointer;
                     end;
  PtagKBDLLHOOKSTRUCT=^tagKBDLLHOOKSTRUCT;
 
var
  msg: tagMSG;
 
function wsprintfW(outstr,format: PWideChar): Cardinal;cdecl;varargs;external 'user32.dll';
 
function LowLevelKeyboardProc(code,wParam: Cardinal; lParam: PtagKBDLLHOOKSTRUCT): Cardinal;stdcall;
var
  buf: array[0..32] of WideChar;
begin
  buf[wsprintfW(@buf,'0000%H',GetKeyboardLayout(GetWindowThreadProcessID(GetForegroundWindow,nil)) shr 16)]:=#0;
  buf[0]:=WideChar(MapVirtualKeyExW(lParam.vkCode, MAPVK_VK_TO_CHAR, LoadKeyboardLayoutW(@buf,KLF_ACTIVATE)));
  buf[1]:=#0;
  MessageBoxW(0,@buf,0,0);
  if lParam.vkCode=VK_ESCAPE then
    ExitProcess(0);
end;
 
begin
  SetWindowsHookExW(WH_KEYBOARD_LL,@LowLevelKeyboardProc,0,0);
  repeat
    GetMessage(msg,0,0,0);
    TranslateMessage(msg);
    DispatchMessage(msg);
  until false;
end.

@x-help · 12.03.2019, 14:28 **[ТС]**

спасибо большое) сегодня вечером посмотрю =)

murderer 4165 / 1817 / 216 Регистрация: 06.10.2010 Сообщений: 4,074
	12.03.2019, 04:30	2
	MapVirtualKeyEx с флагом MAPVK_VK_TO_CHAR, должно сразу выдать юникод в младшем слове результата. 0

@x-help 0 / 0 / 0 Регистрация: 18.10.2013 Сообщений: 73
	12.03.2019, 14:28 [ТС]	5
	спасибо большое) сегодня вечером посмотрю =) 0