[..] Configuration clavier pas prise en charge

[Vins83]

Bonsoir à tous ...

Dans le but de créer un live CD XP pour le dépannage, j'ai créer une petite appli pour modifier la config clavier.
Le problème est que la modification n'est pas prise en compte immédiatement.

J'imagine que c'est une histoire de rundll32 ou un truc similaire

Quelqu'un a une idée ?

Merci beaucoup de votre aide

► Afficher le texte

Code : Tout sélectionner

#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;;;;;;;;;;;;;;;;;;;; GUICREATE ;;;;;;;;;;;;;;;;;;;;
$titre = "KeyBord config"
$width = 240
$height = 180

;;;;;;;;;;;;;;;;;;;; VARIABLE ;;;;;;;;;;;;;;;;;;;;
$reg_Keyboard = RegRead("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1")
;MsgBox(64,$titre,$reg_Keyboard)
If $reg_Keyboard = "00000405" Then
    $Keyboard = "Czech"
ElseIf $reg_Keyboard = "00000406" Then
    $Keyboard = "Danish"
ElseIf $reg_Keyboard = "00000413" Then
    $Keyboard = "Dutch (Standard)"
ElseIf $reg_Keyboard = "00000409" Then
    $Keyboard = "English (United States)"
ElseIf $reg_Keyboard = "00000809" Then
    $Keyboard = "English (United Kingdom)"
ElseIf $reg_Keyboard = "0000040B" Then
    $Keyboard = "Finnish"
ElseIf $reg_Keyboard = "0000040C" Then
    $Keyboard = "French (Standard)"
ElseIf $reg_Keyboard = "0000080C" Then
    $Keyboard = "French (Belgian)"
ElseIf $reg_Keyboard = "0000100C" Then
    $Keyboard = "French (Swiss)"
ElseIf $reg_Keyboard = "00000C0C" Then
    $Keyboard = "French (Canadian)"
ElseIf $reg_Keyboard = "00000407" Then
    $Keyboard = "German (Standard)"
ElseIf $reg_Keyboard = "00000807" Then
    $Keyboard = "German (Swiss)"
ElseIf $reg_Keyboard = "0000040E" Then
    $Keyboard = "Hungarian"
ElseIf $reg_Keyboard = "0000040F" Then
    $Keyboard = "Icelandic"
ElseIf $reg_Keyboard = "00000410" Then
    $Keyboard = "Italian (Standard)"
ElseIf $reg_Keyboard = "00000414" Then
    $Keyboard = "Norwegian (Bokmal)"
ElseIf $reg_Keyboard = "00000415" Then
    $Keyboard = "Polish"
ElseIf $reg_Keyboard = "00000816" Then
    $Keyboard = "Portuguese (Portugal)"
ElseIf $reg_Keyboard = "00000416" Then
    $Keyboard = "Portuguese (Brazil)"
ElseIf $reg_Keyboard = "00000419" Then
    $Keyboard = "Russian"
ElseIf $reg_Keyboard = "0000041B" Then
    $Keyboard = "Slovak"
ElseIf $reg_Keyboard = "00000424" Then
    $Keyboard = "Slovenian"
ElseIf $reg_Keyboard = "0000080A" Then
    $Keyboard = "Spanish (Mexican)"
ElseIf $reg_Keyboard = "0000040A" Then
    $Keyboard = "Spanish (Traditional Sort)"
ElseIf $reg_Keyboard = "0000041D" Then
    $Keyboard = "Swedish"
Else
    RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000040C")
    $Keyboard = "French (Standard)"
EndIf

GUICreate($titre, $width, $height, -1, -1) ; will create a dialog box that when displayed is centered

;;; Parametres du clavier
GUICtrlCreateGroup("Customize keyboard", 10, 5, $width - 20, 57)
$var_keyboard = GUICtrlCreateCombo("", 20, 25, $width - 40, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "Czech|Danish|Dutch (Standard)|English (United States)|English (United Kingdom)|Finnish|French (Standard)|French (Belgian)|French (Swiss)|French (Canadian)|German (Standard)|German (Swiss)|Hungarian|Icelandic|Italian (Standard)|Norwegian (Bokmal)|Polish|Portuguese (Portugal)|Portuguese (Brazil)|Russian|Slovak|Slovenian|Spanish (Mexican)|Spanish (Traditional Sort)|Swedish", $Keyboard)
GUICtrlSetCursor(-1, 0)

;;; Ecrire ici
GUICtrlCreateGroup("Write here", 10, 65, $width - 20, 65)
GUICtrlCreateEdit("", 20, 80, $width - 40, 40, $ES_WANTRETURN)

;;; Vallider
$button = GUICtrlCreateButton("Validate", 10, $height - 40, $width - 20, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetFont(-1, 12)

GUISetState(@SW_SHOW) ; will display an empty dialog box

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop

    Select

        Case $msg = $button

            If GUICtrlRead($var_keyboard) = "Czech" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000405")
            ElseIf GUICtrlRead($var_keyboard) = "Danish" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000406")
            ElseIf GUICtrlRead($var_keyboard) = "Dutch (Standard)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000413")
            ElseIf GUICtrlRead($var_keyboard) = "English (United States)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000409")
            ElseIf GUICtrlRead($var_keyboard) = "English (United Kingdom)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000809")
            ElseIf GUICtrlRead($var_keyboard) = "Finnish" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000040B")
            ElseIf GUICtrlRead($var_keyboard) = "French (Standard)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000040C")
            ElseIf GUICtrlRead($var_keyboard) = "French (Belgian)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000080C")
            ElseIf GUICtrlRead($var_keyboard) = "French (Swiss)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000100C")
            ElseIf GUICtrlRead($var_keyboard) = "French (Canadian)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000C0C")
            ElseIf GUICtrlRead($var_keyboard) = "German (Standard)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000407")
            ElseIf GUICtrlRead($var_keyboard) = "German (Swiss)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000807")
            ElseIf GUICtrlRead($var_keyboard) = "Hungarian" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000040E")
            ElseIf GUICtrlRead($var_keyboard) = "Icelandic" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000040F")
            ElseIf GUICtrlRead($var_keyboard) = "Italian (Standard)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000410")
            ElseIf GUICtrlRead($var_keyboard) = "Norwegian (Bokmal)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000414")
            ElseIf GUICtrlRead($var_keyboard) = "Polish" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000415")
            ElseIf GUICtrlRead($var_keyboard) = "Portuguese (Portugal)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000816")
            ElseIf GUICtrlRead($var_keyboard) = "Portuguese (Brazil)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000416")
            ElseIf GUICtrlRead($var_keyboard) = "Russian" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000419")
            ElseIf GUICtrlRead($var_keyboard) = "Slovak" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000041B")
            ElseIf GUICtrlRead($var_keyboard) = "Slovenian" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "00000424")
            ElseIf GUICtrlRead($var_keyboard) = "Spanish (Mexican)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000080A")
            ElseIf GUICtrlRead($var_keyboard) = "Spanish (Traditional Sort)" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000040A")
            ElseIf GUICtrlRead($var_keyboard) = "Swedish" Then
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000041D")
            Else
                ;;; sinon français
                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000040C")
            EndIf
            MsgBox(64, $titre, "Keyboard settings have been changed")

    EndSelect

WEnd

[Tlem]

Avez-vous essayé de fermer/re-démarrer Explorer.
Je ne me rappel plus de tête, mais sur le forum il y a un truc dans le genre, qui permet en une commande du style RunDll xxxx de re-démarrer Explorer.

[Vins83]

La solution ne marche pas et j'en suis étonné d'ailleurs !!! Je vais continuer à chercher et j'espère bien trouver la solution peu être du coté de crosoft

Merci encore et bonne soirée

[Tlem]

Je n'ai pas de solution à votre problème (pas cherché), mais je vous propose tout de même l'amélioration de votre code :

Solution N°1 :

► Afficher le texte

Code : Tout sélectionner

#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;;;;;;;;;;;;;;;;;;;; GUICREATE ;;;;;;;;;;;;;;;;;;;;
$titre = "KeyBord config"
$width = 240
$height = 180

;;;;;;;;;;;;;;;;;;;; VARIABLE ;;;;;;;;;;;;;;;;;;;;
$reg_Keyboard = RegRead("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1")
;MsgBox(64,$titre,$reg_Keyboard)
Switch $reg_Keyboard
    Case "00000405"
        $Keyboard = "Czech"
    Case "00000406"
        $Keyboard = "Danish"
    Case "00000413"
        $Keyboard = "Dutch (Standard)"
    Case "00000409"
        $Keyboard = "English (United States)"
    Case "00000809"
        $Keyboard = "English (United Kingdom)"
    Case "0000040B"
        $Keyboard = "Finnish"
    Case "0000040C"
        $Keyboard = "French (Standard)"
    Case "0000080C"
        $Keyboard = "French (Belgian)"
    Case "0000100C"
        $Keyboard = "French (Swiss)"
    Case "00000C0C"
        $Keyboard = "French (Canadian)"
    Case "00000407"
        $Keyboard = "German (Standard)"
    Case "00000807"
        $Keyboard = "German (Swiss)"
    Case "0000040E"
        $Keyboard = "Hungarian"
    Case "0000040F"
        $Keyboard = "Icelandic"
    Case "00000410"
        $Keyboard = "Italian (Standard)"
    Case "00000414"
        $Keyboard = "Norwegian (Bokmal)"
    Case "00000415"
        $Keyboard = "Polish"
    Case "00000816"
        $Keyboard = "Portuguese (Portugal)"
    Case "00000416"
        $Keyboard = "Portuguese (Brazil)"
    Case "00000419"
        $Keyboard = "Russian"
    Case "0000041B"
        $Keyboard = "Slovak"
    Case "00000424"
        $Keyboard = "Slovenian"
    Case "0000080A"
        $Keyboard = "Spanish (Mexican)"
    Case "0000040A"
        $Keyboard = "Spanish (Traditional Sort)"
    Case "0000041D"
        $Keyboard = "Swedish"
    Case Else
        RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "0000040C")
        $Keyboard = "French (Standard)"
EndSwitch


GUICreate($titre, $width, $height, -1, -1) ; will create a dialog box that when displayed is centered

;;; Parametres du clavier
GUICtrlCreateGroup("Customize keyboard", 10, 5, $width - 20, 57)
$var_keyboard = GUICtrlCreateCombo("", 20, 25, $width - 40, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "Czech|Danish|Dutch (Standard)|English (United States)|English (United Kingdom)|Finnish|French (Standard)|French (Belgian)|French (Swiss)|French (Canadian)|German (Standard)|German (Swiss)|Hungarian|Icelandic|Italian (Standard)|Norwegian (Bokmal)|Polish|Portuguese (Portugal)|Portuguese (Brazil)|Russian|Slovak|Slovenian|Spanish (Mexican)|Spanish (Traditional Sort)|Swedish", $Keyboard)
GUICtrlSetCursor(-1, 0)

;;; Ecrire ici
GUICtrlCreateGroup("Write here", 10, 65, $width - 20, 65)
GUICtrlCreateEdit("", 20, 80, $width - 40, 40, $ES_WANTRETURN)

;;; Valider
$button = GUICtrlCreateButton("Validate", 10, $height - 40, $width - 20, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetFont(-1, 12)

GUISetState(@SW_SHOW) ; will display an empty dialog box

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop

    Select

        Case $msg = $button
            Local $Hkey = "HKEY_CURRENT_USER\Keyboard Layout\Preload"
            Switch GUICtrlRead($var_keyboard)
                Case "Czech"
                    RegWrite($Hkey, "1", "REG_SZ", "00000405")
                Case "Danish"
                    RegWrite($Hkey, "1", "REG_SZ", "00000406")
                Case "Dutch (Standard)"
                    RegWrite($Hkey, "1", "REG_SZ", "00000413")
                Case "English (United States)"
                    RegWrite($Hkey, "1", "REG_SZ", "00000409")
                Case "English (United Kingdom)"
                    RegWrite($Hkey, "1", "REG_SZ", "00000809")
                Case "Finnish"
                    RegWrite($Hkey, "1", "REG_SZ", "0000040B")
                Case "French (Standard)"
                    RegWrite($Hkey, "1", "REG_SZ", "0000040C")
                Case "French (Belgian)"
                    RegWrite($Hkey, "1", "REG_SZ", "0000080C")
                Case "French (Swiss)"
                    RegWrite($Hkey, "1", "REG_SZ", "0000100C")
                Case "French (Canadian)"
                    RegWrite($Hkey, "1", "REG_SZ", "00000C0C")
                Case "German (Standard)"
                    RegWrite($Hkey, "1", "REG_SZ", "00000407")
                Case "German (Swiss)"
                    RegWrite($Hkey, "1", "REG_SZ", "00000807")
                Case "Hungarian"
                    RegWrite($Hkey, "1", "REG_SZ", "0000040E")
                Case "Icelandic"
                    RegWrite($Hkey, "1", "REG_SZ", "0000040F")
                Case "Italian (Standard)"
                    RegWrite($Hkey, "1", "REG_SZ", "00000410")
                Case "Norwegian (Bokmal)"
                    RegWrite($Hkey, "1", "REG_SZ", "00000414")
                Case "Polish"
                    RegWrite($Hkey, "1", "REG_SZ", "00000415")
                Case "Portuguese (Portugal)"
                    RegWrite($Hkey, "1", "REG_SZ", "00000816")
                Case "Portuguese (Brazil)"
                    RegWrite($Hkey, "1", "REG_SZ", "00000416")
                Case "Russian"
                    RegWrite($Hkey, "1", "REG_SZ", "00000419")
                Case "Slovak"
                    RegWrite($Hkey, "1", "REG_SZ", "0000041B")
                Case "Slovenian"
                    RegWrite($Hkey, "1", "REG_SZ", "00000424")
                Case "Spanish (Mexican)"
                    RegWrite($Hkey, "1", "REG_SZ", "0000080A")
                Case "Spanish (Traditional Sort)"
                    RegWrite($Hkey, "1", "REG_SZ", "0000040A")
                Case "Swedish"
                    RegWrite($Hkey, "1", "REG_SZ", "0000041D")
                Case Else
                    ;;; sinon français
                    RegWrite($Hkey, "1", "REG_SZ", "0000040C")
            EndSwitch
            MsgBox(64, $titre, "Keyboard settings have been changed")

    EndSelect

WEnd

Solution N°2 :

► Afficher le texte

Code : Tout sélectionner

#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Lang = "Czech|Danish|Dutch (Standard)|English (United States)|English (United Kingdom)|Finnish|French (Standard)|" & _
        "French (Belgian)|French (Swiss)|French (Canadian)|German (Standard)|German (Swiss)|Hungarian|Icelandic|Italian (Standard)|" & _
        "Norwegian (Bokmal)|Polish|Portuguese (Portugal)|Portuguese (Brazil)|Russian|Slovak|Slovenian|Spanish (Mexican)|" & _
        "Spanish (Traditional Sort)|Swedish"
Global $Code = "00000405|00000406|00000413|00000409|00000809|0000040B|0000040C|0000080C|0000100C|00000C0C|00000407|00000807|" & _
        "0000040E|0000040F|00000410|00000414|00000415|00000816|00000416|00000419|0000041B|00000424|0000080A|0000040A|0000041D"
Global $aLang = StringSplit($Lang, "|")
Global $aCode = StringSplit($Code, "|")
Global $Hkey = "HKEY_CURRENT_USER\Keyboard Layout\Preload"
Global $Keyboard, $i

;;;;;;;;;;;;;;;;;;;; GUICREATE ;;;;;;;;;;;;;;;;;;;;
$titre = "KeyBord config"
$width = 240
$height = 180

;;;;;;;;;;;;;;;;;;;; VARIABLE ;;;;;;;;;;;;;;;;;;;;
$reg_Keyboard = RegRead($Hkey, "1")
;MsgBox(64,$titre,$reg_Keyboard)

For $i = 1 To UBound($aCode) - 1
    If $reg_Keyboard = $aCode[$i] Then
        $Keyboard = $aLang[$i]
    EndIf
Next
If $Keyboard = "" Then
    RegWrite($Hkey, "1", "REG_SZ", "0000040C")
    $Keyboard = "French (Standard)"
EndIf

GUICreate($titre, $width, $height, -1, -1) ; will create a dialog box that when displayed is centered

;;; Parametres du clavier
GUICtrlCreateGroup("Customize keyboard", 10, 5, $width - 20, 57)
$var_keyboard = GUICtrlCreateCombo("", 20, 25, $width - 40, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, $Lang, $Keyboard)
GUICtrlSetCursor(-1, 0)

;;; Ecrire ici
GUICtrlCreateGroup("Write here", 10, 65, $width - 20, 65)
GUICtrlCreateEdit("", 20, 80, $width - 40, 40, $ES_WANTRETURN)

;;; Valider
$button = GUICtrlCreateButton("Validate", 10, $height - 40, $width - 20, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetFont(-1, 12)

GUISetState(@SW_SHOW) ; will display an empty dialog box

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop

    Select

        Case $msg = $button
            Local $Keyb = GUICtrlRead($var_keyboard)
            For $i = 1 To UBound($aLang) - 1
                If $Keyb = $aLang[$i] Then
                    RegWrite($Hkey, "1", "REG_SZ", $aCode[$i])
                EndIf
            Next

            MsgBox(64, $titre, "Keyboard settings have been changed")

    EndSelect

WEnd

[Vins83]

Merci Tlem pour les améliorations .
Pour le moment le problème n'est pas régler, je continue a fouiner la toile

Cordialement