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

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Visual Basic
  Определение раскладки клавиатуры
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Определение раскладки клавиатуры

IgorP опубликован 21-12-2001 10:40 MSK
Буду крайне признателен, если кто-нибудь поможет с определением раскладки в конкретном (не текущем) приложении Дело в том, что International Keyboard, расположенный в SysTray, помнит, какая раскладка включена для той или иной задачи. Мне нужно получить возможность следить за его состоянием внутри определенного процесса, например, Outlook'а.
Заранее благодарю
AlexR опубликован 21-12-2001 17:30 MSK
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)))
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: Определение раскладки клавиатуры
IgorP	опубликован 21-12-2001 10:40 MSK Буду крайне признателен, если кто-нибудь поможет с определением раскладки в конкретном (не текущем) приложении Дело в том, что International Keyboard, расположенный в SysTray, помнит, какая раскладка включена для той или иной задачи. Мне нужно получить возможность следить за его состоянием внутри определенного процесса, например, Outlook'а. Заранее благодарю
AlexR	опубликован 21-12-2001 17:30 MSK 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)))