Check For Language Layout Change

Author: Arkadiy Olovyannikov

Run this code. When you will change the language setting (the little "En" blue square in your status bar) the program will tell you to which language you've switched.

Module Code

Declare Function CallNextHookEx Lib "user32" _
   (ByVal hHook As Long, ByVal ncode As Long, _
   ByVal wParam As Long, lParam As Any) As Long

Declare Function SetWindowsHookEx Lib "user32" _
  Alias "SetWindowsHookExA" (ByVal idHook As Long, _
  ByVal lpfn As Long, ByVal hmod As Long, _
  ByVal dwThreadId As Long) As Long

Declare Function UnhookWindowsHookEx Lib _
  "user32" (ByVal hHook As Long) As Long

Declare Function GetLocaleInfo Lib "kernel32" _
  Alias "GetLocaleInfoA" (ByVal Locale As Long, _
  ByVal LCType As Long, ByVal lpLCData As String, _
  ByVal cchData As Long) As Long

Public Const WH_SHELL = 10

Public Const HSHELL_LANGUAGE = 8

Public Const LOCALE_ILANGUAGE             As Long = &H1
Public Const LOCALE_SLANGUAGE             As Long = &H2
Public Const LOCALE_SENGLANGUAGE          As Long = &H1001
Public Const LOCALE_SABBREVLANGNAME       As Long = &H3
Public Const LOCALE_SCOUNTRY              As Long = &H6
Public Const LOCALE_SENGCOUNTRY           As Long = &H1002
Public Const LOCALE_SABBREVCTRYNAME       As Long = &H7

Public hHook As Long

Public Function ShellHookProc(ByVal idHook As Long, _
      ByVal wParam As Long, ByVal lParam As Long) As Long
    If idHook = HSHELL_LANGUAGE Then
       Dim LocID As Long
       LocID = LoWord(lParam)
' You can use other LOCALE_ const to get localized names of
' language/country
       Form1.Print "Language ID ", _
         GetlanguageInfo(LocID, LOCALE_ILANGUAGE)
       Form1.Print "Language ", GetlanguageInfo(LocID, _
       Form1.Print "Country ", GetlanguageInfo(LocID, _
    End If
    ShellHookProc = CallNextHookEx(hHook, idHook, wParam, _
       ByVal lParam)
End Function

Private Function LoWord(DWORD As Long) As Integer
   If DWORD And &H8000& Then
      LoWord = &H8000 Or (DWORD And &H7FFF&)
      LoWord = DWORD And &HFFFF&
   End If
End Function

Private Function GetlanguageInfo(ByVal dwLocaleID As Long, _
     ByVal dwLCType As Long) As String
   Dim sReturn As String, nRet As Long
   sReturn = String$(128, 0)
   nRet = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, _
   GetlanguageInfo = Left$(sReturn, nRet - 1)
End Function

Form Code

Private Sub Form_Load()
  hHook = SetWindowsHookEx(WH_SHELL, AddressOf ShellHookProc, 0&, 0&)
End Sub

Private Sub Form_Unload(Cancel As Integer)
   If hHook Then UnhookWindowsHookEx hHook
End Sub

Go Back