подскажите, как определить раскладку АКТИВНОГО окна? в инете не мало таких тем, но все коды, которые нашёл, определяют раскладку окна программы, а не активного окна. Желательно любого активного окна, не зависимо от имени. заранее спс

вот мой код Option Explicit
' функция раскладки клавиатуры
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Private Sub Timer1_Timer() 'интервал любой
Dim KeybLayoutName As String
KeybLayoutName = String(9, 0)
GetKeyboardLayoutName KeybLayoutName
If CStr(CLng(Left$(KeybLayoutName, InStr(1, KeybLayoutName, Chr(0)) - 1))) = 409 Then 'Номер 409 - английская
Text1.Text = "английская клава"
Else '419 - русская
Text1.Text = "русская клава"
End If
End Sub
узнаёт раскладку своего окна но не активного... есть у кого идеи?)

мдя походу ни у кого никаких идей

неужели никаких идей... хоть делай снимок экрана и смотри "рус" или "en" там нарисовано) а если серьёзно за 2 дня 42 просмотра и ток мои комменты. полюбэ как-то можно узнать раскладку активного окна...

big-duke,

спс, первый, кто что-нить написАл) из статьи я понял (кажется), что если параметр IdShread = 0, то возвращается раскладка активного окна... А как и в какой части кода можно внести этот параметр?

big-duke,

Уже натыкался на эту статью. тоже говорится, что BelowZeroесли параметр IdShread = 0, то возвращается раскладка активного окна но BelowZeroкак и в какой части кода можно внести этот параметр?

Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function GetWindowThreadProcessId& Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String)
Dim hAppWnd As Long
Dim ThreadID As Long
Dim ThreadLayout As Long
Dim vbNullString
hAppWnd = FindWindow(vbNullString, "Безымянный - Блокнот")
If hAppWnd = 0 Then
MsgBox "нет такого окна"
Else
ThreadID = GetWindowThreadProcessId(hAppWnd, ByVal 0&)
ThreadLayout = GetKeyboardLayout(ThreadID)
MsgBox "Ðàñêëàäêà " & Hex(ThreadLayout)
End If
этот код вроде должен определять раскладку в блокноте, но 1) ругается на vbNullString: Invalid Outside Procedure
2) нужно определять раскладку не определённого окна по имени, а любого активного в данный момент окна
3) совсем запутался с этим IdShread...
Буду благодарен за помощь

Shocker.Pro,

привет!) т.е. Здравствуйте. вы сильно помогли в предыдущих моих трудностях. Очень рад, что вы подключились к этой теме. Shocker.ProПеревести? да, пожалуйста...

Shocker.Pro,
BelowZeroподскажите, как определить раскладку АКТИВНОГО окна
В инете обсуждается, как узнать раскладку самого окна(текущего процесса)
последний приведённый код узнаёт раскладку по имени приложения. тоже неплохо, но и это не работает...

извините за нубство, но куда GetActiveWindow пихнуть?)

Option Explicit
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function GetWindowThreadProcessId& Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)
Private Declare Function GetActiveWindow Lib "user32" () As Long


Private Sub Timer1_Timer()
Dim hAppWnd As Long
Dim ThreadID As Long
Dim ThreadLayout As Long
Dim vbNullString
hAppWnd = GetActiveWindow()
ThreadID = GetWindowThreadProcessId(hAppWnd, ByVal 0&)
ThreadLayout = GetKeyboardLayout(ThreadID)
Text1.Text = "raskladka " & Hex(ThreadLayout)
End Sub
воть... не возвращает раскладку активного окна... но зато единственный возможный вариант на который компилятор не ругался красиво подобранным комплектом английских слов) а если серьёзно куда его впихнуть чтоб работало?

ааа помогите буду до часа ночи ждать ответа...

скукотища,
с функцией GetActiveWindow не получается, а GetForegroundWindow& работает идеально, так, как и задумывалось. огромное спасибо!)