Team AAZ - Forum

Code : Tout sélectionner

 Try
'déclaration d'une variable de type "clé de registre" nommée "Key" et initialisée à "Nothing"
                Dim Key As RegistryKey = Nothing
'création de la sous clé de registre puis affecation dans la variable "Key" 
                Key = Registry.ClassesRoot.CreateSubKey(RegPath & "\Shell\NCTD")
'création de la "donnée de valeur" nommée "Lancer NCTD" de la clé "Key"
                Key.SetValue("", "Lancer NCTD")
'création de la sous clé "command" puis de la donnée de valeur du "chemin de l'application"
                Key.CreateSubKey("command").SetValue("", Application.ExecutablePath)
'création du nom "Icon" et de sa valeur "chemin de l'application" concaténé aux caractères ",0" afin de représenter l'icône du programme
                Key.SetValue("Icon", Application.ExecutablePath & ",0")
'création du nom "Position" et de sa valeur "Bottom"
                Key.SetValue("Position", "Bottom")
' fermeture des resources mémoire occupées par la variable "Key"
                Key.Close()
'Gestionnaire d'exception 
            Catch ex As Exception
'Message à afficher avec l'exception trouvée (ex.Message)
                MessageBox.Show("L'erreur suivante est survenue : " & ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try

Code : Tout sélectionner

 Public Sub CreateRightClic(ByVal Posit As String)
            Try
                Dim Key As RegistryKey = Nothing
                Key = Registry.ClassesRoot.CreateSubKey(RegPath & "\Shell\NCTD")
                Key.SetValue("", "Lancer NCTD")
                Key.CreateSubKey("command").SetValue("", Application.ExecutablePath)
                Key.SetValue("Icon", Application.ExecutablePath & ",0")
                If Not Posit Is Nothing Then
                    Key.SetValue("Position", Posit)
                Else
                     Key.SetValue("Position", "Bottom")
                End If
                Key.Close()
            Catch ex As Exception
                MessageBox.Show("L'erreur suivante est survenue : " & ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End Sub