Fléches des icones du bureau
Sechaud
Messages postés
288
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
3 janvier 2017
-
19 août 2013 à 22:14
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 13 janv. 2014 à 17:09
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 13 janv. 2014 à 17:09
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
https://codes-sources.commentcamarche.net/source/53824-fleches-des-icones-du-bureau
13 janv. 2014 à 17:09
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
11 sept. 2013 à 16:02
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
2 sept. 2013 à 11:19
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
19 août 2013 à 22:14