Discussion :

[exclusif]

Bonjour à tous,

J'obtiens un message d'erreur lorsque que je tente de modifier une clé de registre avec la commande suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
        Try
            If Me.ChkDemarrage.Checked = True Then
                'Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software").OpenSubKey("Microsoft").OpenSubKey("Windows").OpenSubKey("CurrentVersion").OpenSubKey("Run").SetValue("Emma", My.Application.Info.DirectoryPath & "\Emma.exe")
                My.Computer.Registry.LocalMachine.OpenSubKey("Software").OpenSubKey("Microsoft").OpenSubKey("Windows").OpenSubKey("CurrentVersion").OpenSubKey("Run").SetValue("Emma", My.Application.Info.DirectoryPath & "\Emma.exe")
            Else
                'Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software").OpenSubKey("Microsoft").OpenSubKey("Windows").OpenSubKey("CurrentVersion").OpenSubKey("Run").SetValue("Emma", "")
                My.Computer.Registry.LocalMachine.OpenSubKey("Software").OpenSubKey("Microsoft").OpenSubKey("Windows").OpenSubKey("CurrentVersion").OpenSubKey("Run").SetValue("Emma", "")
            End If
        Catch ex As Exception
            MessageBox.Show("Une erreur est survenue : " & ex.Message)
        End Try

Existe t'il une solution ou est-ce que c'est interdit ? Ou alors ai-je commis une erreur de programmation ?

Merci pour vos lumières

Ludo

[Mathieu Francesch]

Bonsoir,

D'aprés votre code, vous voulez sûrement lancer votre application au démarrage de Windows.

Je vous conseille donc de procéder ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
        Try
            Dim Key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", True)
            Key.SetValue("Emma", My.Application.Info.DirectoryPath & "\Emma.exe")
            Key.Close()
            Key = Nothing

        Catch ex As Exception
            MessageBox.Show("Une erreur est survenue : " & ex.Message)
        End Try

PS : En gras, un booleen qui permet de spécifier que nous accédons en écriture à la clef .

Bonne soirée,

Math

[exclusif]

Nickel ca fonctionne du premier coup

Mais pourquoi mon code est incorrect ?

En tout cas merci beaucoup

Ludo

[Mathieu Francesch]

Bonjour Ludo,

Ton code est fonctionnel il manque juste que tu passes true en argument de
OpenSubKey("Run",true) pour spécifier que tu vas écrire dedans.

Bonne continuation,

Math