[R] A la recherche de la fonction RegRename

[FernandG]

Bonsoir à tous,

Je suis à la recherche d'un petit bout de code, d'une petite fonction pour renommer une clé dans la base de registre

J'ai cherché rapidement et n'ayant rien trouvé, j'ai écrit ou plutôt j'ai bidouillé rapidement le code ci dessous. Une façon détourné d'arriver à mes fins.

Donc à défaut de trouver mon bonheur, qu'en pensez-vous, moyen de l'améliorer de manière significative ? Une vrai fonction RegRename caché quelque part

Merci d'avance de votre aide et de vos conseils à ce sujet.

Bonne soirée.
FernandG

Code : Tout sélectionner

RegRename("HKEY_LOCAL_MACHINE\SOFTWARE\OldKey", "HKEY_LOCAL_MACHINE\SOFTWARE\NewKey")

MsgBox(64, "Info", "Fin")

Func RegRename($key_search, $key_replace)
    $file = @TempDir & '\' & @Computername & '.reg'
    If FileExists($file) Then FileDelete($file)
    RunWait('regedit /e ' & $file & ' "' & $key_search & '"', "C:\", @SW_HIDE)
    $fichier = FileOpen($file, 0)
    If $fichier = -1 Then
        MsgBox(16, "Erreur", "Impossible d'ouvrir le fichier : " & $file)
        Exit
    EndIf
    While 1
        Dim $new
        $ligne = FileReadLine($fichier)
        If @error = -1 Then ExitLoop
        If StringInStr($ligne, $key_replace) Then $ligne = StringReplace($ligne, $key_search, $key_replace)
        $new = $new & $ligne & @CRLF
    Wend
    FileClose($fichier)
    $fichier = FileOpen($file, 2)
    If $fichier = -1 Then
        MsgBox(16, "Erreur", "Impossible d'ouvrir le fichier : " & $file)
        Exit
    EndIf
    FileWrite($fichier, $new)
    FileClose($fichier)
    RunWait('regedit /s ' & $file, "C:\", @SW_HIDE)
    RegDelete($key_search)
    FileDelete($file)
EndFunc
 

[Tlem]

Un peut plus long, mais sans fichier ni Regedit (Donc plus rapide et peut être plus 'fiable') ici : http://www.autoitscript.com/forum/index ... opic=13374
Juste à rajouter le Regdelete pour finir.

_Regclone.au3

[FernandG]

Bonsoir,

Tlem, je me rends compte que je ne t'ai jamais remercié, faut mieux tard que jamais non ?

Alors merci pour le _Regclone.au3

Bonne nuit.
AutoITement.

[Tlem]

Aucun problème.

[Steph]

Salut,

excellent comme fonction ! merci egalement au passage.

Stéf

[Steph]

Salut,

Je serais à la recherche d'une fonction capable de mettre en Backup, cloné ou autres, non pas certaines clé de registre mais certaines valeurs ! en gros une fonction tel _regClone mais qui renommerait certaines entré de la clef et non la clé elle-meme !.

en gros:

Code : Tout sélectionner

$A = ("HKEY_CURRENT_USER\Software\7-Zip", "Lang")
$B = ("HKEY_CURRENT_USER\Software\7-Zip", "LangBackup")

_fonction($A, $B)

Voilà, si quelqu'un pourrait m'aider ! merci d'avance

Sinon je me suis creer une petite fonction permettant de faire des backup et qui utilise _regClone ! voir:

Code : Tout sélectionner

Func _regBackup($Key)
    $Keyb = $Key & "Backup"
    RegRead($Key, "")
    If @error <> 1 Then 
        _regClone($Key, $Keyb)
        RegDelete($Key)
    EndIf
EndFunc

Par contre je bloque un peu pour creer la fonction inverse ! à savoir _regRestore, si quelqu'un pourrait egalement m'aider, merci d'avance.

cordialement,

Stéphane

[Tlem]

Est-ce que ceci répond à votre attente ?

[Steph]

Est-ce que ceci répond à votre attente ?

oui, parfaitement ! imppec !
fonctionne comme cela alors dans mon cas:

Code : Tout sélectionner

_RegValMove("HKEY_CURRENT_USER\Software\7-Zip", "Lang", "LangBackup", "")

sinon pourriez-vous juste jeter un oeil à l'autre demande dans mon precedent poste à savoir: "Par contre je bloque un peu pour creer la fonction inverse ! à savoir _regRestore, si quelqu'un pourrait egalement m'aider, merci d'avance.".

Voilà, cdt

[Tlem]

La fonction _RegValMove() vous permet de déplacer une valeur de clé, donc vous pouvez la stocker quelque part puis la restaurer ultérieurement ce qui revient à faire ce que vous demandez.