Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Long
Private Declare Function VerLanguageName Lib "kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long
Private Enum pLang
LangID = 1
LangName = 2
End Enum
Private Function GetSystemLanguage(param As pLang) As String
Dim ID As String
Dim Buffer As String
ID = "&H" & Right(Hex(GetSystemDefaultLangID()), 3)
Select Case param
Case 1
GetSystemLanguage = ID & " / " & CStr(Val(ID))
Case 2
Buffer = String(255, 0)
VerLanguageName CLng(ID), Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
GetSystemLanguage = Buffer
End Select
End Function
Voilà ce que j'ai pu recopier mais il y'a un problème. Ce n'est pas exactemetn ce que je veux. Je souhaite la langue du clavier en cours... FR ou AR ou EN et quand je change avec Alt+Maj ca change depuis le timer.
|