Как сделать штучку для отображения раскладки клавиатуры?

[A.A.Z.]

Чтобы когда вводишь пароль, было видно, на какой раскладке ты сейчас находишься?

[DiSe]

Тебе мало в системном Tray иконки языка

[Алекс]

Тебе мало в системном Tray иконки языка

По моему, во время ввода пароля, трея нет.:rool:

[RayShade]

Если ты про ввод пароля в NT/2000/XP то могу сказать - и твоей проги на тот момент тоже еще не будет

[MEMBER]

Будет, будет.
Её не будет, если установить "Требовать нажатия CTRL+ALT+DEL при вводе пароля"

[RayShade]

Да по любому на этом окне отображается раскладка - что огород то городить?

[MEMBER]

Да он, видимо хочет, чтобы отображалось на форме, появляющейся при блокировке рабочей станции.

[RayShade]

Так и там он, тоже... этого... есть

[MEMBER]

Где? Нажмите заветную комбинацию и Enter.

[A.A.Z.]

Да нет, просто я сделал программку, и пытаюсь её кое-как наворотить - вот и спросил, можно ли как-то это сделать. И дело вовсе не в Трее или во входе в Windows.

[MEMBER]

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

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

Private Sub Form_Load()
    Dim strBuffer As String
    ' Получаем текущую раскладку клавиатуры
    strBuffer = String(9, 0)
    GetKeyboardLayoutName strBuffer
    MsgBox "Клавиатурная раскладка -" & Val(strBuffer)
End Sub
'Ukrainian 422
'Russian 419
'English 409
'German 407
'Spanish 403
'Polish 415
'Romainan 418
'French 40C

[skiperski]

...и пытаюсь её кое-как наворотить...

Everything should be made as simple as possible, but not simpler.

[A.A.Z.]

Спасибо.