Fléches des icones du bureau

Signaler
Messages postés
288
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
3 janvier 2017
-
Messages postés
7538
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/53824-fleches-des-icones-du-bureau

Messages postés
7538
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
127
AVERTISSEMENT

Pour les possesseurs de Windows 8.1, le fait de supprimer les flèches des icônes du bureau, supprime le menu contextuel du bouton démarrer situé dans le coin en bas à gauche.

Voir cette discussion:

http://www.commentcamarche.net/forum/affich-29285471-clic-droit-sur-bouton-demarrer-ne-fonctionne-pas-sous-windows8-1#p29496734

@+ Le Pivert
Messages postés
132
Date d'inscription
mercredi 18 février 2004
Statut
Membre
Dernière intervention
1 septembre 2014

et en Net
Messages postés
7538
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
127 >
Messages postés
132
Date d'inscription
mercredi 18 février 2004
Statut
Membre
Dernière intervention
1 septembre 2014

Bonjour,
Pour pape0, voici le code en VB.net:

Mettre 4 buttons dans un Form et ajouter ce code:

Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Supprimer flèches icones bureau"
Button1.AutoSize = True
Button2.Text = "Rétablir flèches icones bureau"
Button2.AutoSize = True
Button3.Text = "Supprimer Raccourci vers"
Button3.AutoSize = True
Button4.Text = "Rétablir Raccourci vers"
Button4.AutoSize = True
End Sub
'supprimer flèches icônes
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Dim var As RegistryKey = Registry.ClassesRoot.OpenSubKey("lnkfile", True)
var.DeleteValue("IsShortcut") 'supprime la valeur
var.SetValue("IsShortcut_old", "", RegistryValueKind.String) 'ajoute la valeur
var.Close() 'Fermeture du registre
MessageBox.Show("Vous devez redemarrer votre pc pour que la modification soit opérationnelle", "Flèches icônes bureau", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
'rétablir flèches icônes
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Try
Dim var As RegistryKey = Registry.ClassesRoot.OpenSubKey("lnkfile", True)
var.DeleteValue("IsShortcut_old") 'supprime la valeur
var.SetValue("IsShortcut", "", RegistryValueKind.String) 'ajoute la valeur
var.Close() 'Fermeture du registre
MessageBox.Show("Vous devez redemarrer votre pc pour que la modification soit opérationnelle", "Flèches icônes bureau", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
'supprimer raccourci vers
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Try
Dim test As Byte() = {0, 0, 0, 0}
Dim var As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer", True)
var.SetValue("link", test, RegistryValueKind.Binary) 'change la valeur
var.Close() 'Fermeture du registre
MessageBox.Show("Vous devez redemarrer votre pc pour que la modification soit opérationnelle", "Raccourci vers", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
'rétablir raccourci vers
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
Try
Dim test As Byte() = {1, 0, 0, 0}
Dim var As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer", True)
var.SetValue("link", test, RegistryValueKind.Binary) 'change la valeur
var.Close() 'Fermeture du registre
MessageBox.Show("Vous devez redemarrer votre pc pour que la modification soit opérationnelle", "Raccourci vers", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

'Pour Vista, Seven et W8 il faut exécuter ce programme en tant qu'administrateur
'Allez dans Propriétés de l'exe Compatibilité et cochez: exécuter ce programme en tant qu'administrateur
'avant toute modification du registre n'oubliez pas de faire une sauvegarde

End Class

@+ Le Pivert
Messages postés
7538
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
127 >
Messages postés
7538
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021

Une mise à jour a été faite en VB.NET:

http://codes-sources.commentcamarche.net/source/100107-supprimer-les-fleches-des-icones-du-bureau

Vous y trouverez les vérifications de l'existence d'une valeur et les données binaires d'une valeur dans le registre.

Bonne programmation

@+ Le Pivert