• Home
 · 
• Windows API Call/Explanation
 · 
• get GetKeyboardLayout language from a thread

get GetKeyboardLayout language from a thread

get GetKeyboardLayout language from a thread

API Declarations


Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long




Rate get GetKeyboardLayout language from a thread

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim TheardId As Long
Dim TheardLang As Long

    TheardId = get_threadId 'call function
    TheardLang = GetKeyboardLayout(ByVal TheardId)
    TheardLang = TheardLang Mod 10000
    
  Select Case TheardLang 
   Case 9721 'english
    'do your stuff
    
   Case 1869 'hebrew
     'do your stuff
   
  End Select
    

End Sub



Public Function get_threadId() As Long
Dim threadid As Long, processid As Long

get_threadId = GetWindowThreadProcessId(winHWND, processid)

End Function