какая раскладка клавиатуры включена в активном окне ?

[dasker]

есть код

Код: Выделить всё

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

-------------------------

Код: Выделить всё

Dim KeybLayoutName As String
KeybLayoutName = String(9, 0)
GetKeyboardLayoutName KeybLayoutName
www = CStr(CLng(Left$(KeybLayoutName, InStr(1, KeybLayoutName, Chr(0)) - 1)))

всё прекрасно работает, но только если форма, в которой выполняется код активна, как только фокус пропадает, все...

как определять основную раскладку, в активном окне,короче говоря, как в трее переключатель.

[GSerg]

Находим активное окно через getforegroundwindow. Потом getwindowthreadprocessid, узнаём tID. Потом getkeyboardlayout(tID).

[dasker]

а с примером можно поподробнее, я с api не очень дружу.
заранее благодарю

[GM]

Вот так:

Код: Выделить всё

Private Declare Function GetKeyboardLayout Lib "user32" ( _
    ByVal dwLayout As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" ( _
    ByVal dwLayout As Long) As Long
sub main()
dim pid as long
call getwindowthreadprocessid(getforegroundwindow,pid)
msgbox getkeyboardlayout(pid)
end sub


[Sur]

Это работает, если юзер в активном консольном окне?

[kif]

Вот так:

Код: Выделить всё

Private Declare Function GetKeyboardLayout Lib "user32" ( _
    ByVal dwLayout As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" ( _
    ByVal dwLayout As Long) As Long
sub main()
dim pid as long
call getwindowthreadprocessid(getforegroundwindow,pid)
msgbox getkeyboardlayout(pid)
end sub


а где найти соответствие возвращаемого значения и языка (RUS ENG и т.д.)

[dasker]

Вот так:

Код: Выделить всё

Private Declare Function GetKeyboardLayout Lib "user32" ( _
    ByVal dwLayout As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" ( _
    ByVal dwLayout As Long) As Long
sub main()
dim pid as long
call getwindowthreadprocessid(getforegroundwindow,pid)
msgbox getkeyboardlayout(pid)
end sub


msgbox выводит 0 в любом случае, может я что ни то делаю код ниже

Код: Выделить всё

Public Declare Function GetKeyboardLayout Lib "user32" ( _
    ByVal dwLayout As Long) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Sub main()
Dim pid As Long
Call GetWindowThreadProcessId(GetForegroundWindow, pid)
MsgBox GetKeyboardLayout(pid)
End Sub