Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.149.255.162] |
|
Сообщ.
#1
,
|
|
|
Буду крайне признателен, если кто-нибудь поможет с определением раскладки в конкретном (не текущем) приложении Дело в том, что International Keyboard, расположенный в SysTray, помнит, какая раскладка включена для той или иной задачи. Мне нужно получить возможность следить за его состоянием внутри определенного процесса, например, Outlook'а.
Заранее благодарю |
Сообщ.
#2
,
|
|
|
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Определить: Dim KeybLayoutName As String KeybLayoutName = String(9, 0) GetKeyboardLayoutName KeybLayoutName 'Номер 409 - английская, 419 - русская MsgBox "Текущая раскладка номер " & CStr(CLng(Left$(KeybLayoutName, _ InStr(1, KeybLayoutName, Chr(0)) - 1))) |