Changer de clavier/langue

[Parole De JOJO]

Pour passer d'une langue a l'autre sur windows, il y a le raccourci SHIFT + ALT
Comment recuperer la langue courante, et comment la changer?
J'imagine qu'en envoyant un SHIFT + ALT avec INSERTKEY ca irait, mais n'y a-t-il pas une solution plus… propre?

merci

[boddhi]

Comment récupérer la langue courante ???
Sous Windows, l'API GetUserDefaultLangID_()

Pour la modifier ???
Voir du côté de WM_SETTINGCHANGE_()

[Parole De JOJO]

merci
j'ai fais

Code : Tout sélectionner

Debug GetUserDefaultLangID_()

ca me donne 1037 dans les deux langues (anglais hebreu)

[boddhi]

merci
j'ai fais

Pour éviter des réponses de ce type, précise dans ton post les pistes que tu as déjà explorées !!! Et un/des exemple(s) !!!

Maintenant, cette fonction est la bonne, simplement tu ne l'utilises sûrement pas de la bonne manière...

Pour trouver, c'est simple il suffit de bien chercher et ne pas toujours compter sur les autres pour toujours avoir une réponse "clé en main"...

[Parole De JOJO]

mais j'ai mis un code d'example !!!

merci en tout cas je vais chercher

[boddhi]

mais j'ai mis un code d'example !!!

Où ça ???

Cela ???

Code : Tout sélectionner

Debug GetUserDefaultLangID_()

Tu parles d'un exemple

[nico]

Code : Tout sélectionner

ID.l=GetUserDefaultLangID_()
text.s=Space(255)
VerLanguageName_(ID,text,255)
Debug text

[Parole De JOJO]

merci nico
ceci me donne le language par defaut, pas l'actuel
et je ne peux non plus pas changer de langue (peut etre c'est SET au debut?)

[nico]

ça me donne l'actuel, puique lorsque je change la langue; cela me l'indique bien.

[Parole De JOJO]

ok, c'est bizzare chez moi meme quand je change de langue ca affiche la langue de defaut
je suis sur seven

et pour changer la langue courrante, il y a un truc? (j'ai googelise SetUserDefaultLangID yavait rien)

merci

[Ar-S]

Et dans windowz 7 même, tu as la barre des langues dans ta barre des tâches, as tu les 2 langues de dispos ?

[Parole De JOJO]

euh, sous seven ya pas la barre des langues, mais quand je fais ALT SHIFT ca passe a l'hebreu/anglais

[Parole De JOJO]

merci, je ne connaissais pas
je vais essayer de comprendre ce qu'ils racontent la bas chez microsoft

[boddhi]

Est-ce que ceci te ramène des valeurs correctes ???

Code : Tout sélectionner

Langue.w=GetSystemDefaultLangID_()
Debug "Langue = " + Str(Langue & $FFFF)
Debug "Langue primaire = " + Str(Langue & $3F)
Debug "Sous-langue = " + Str(Langue>>10)

Avec ici le détail des identifiants

[Parole De JOJO]

1037
13
1