Fléches des icones du bureau

Soyez le premier à donner votre avis sur cette source.

Vue 4 930 fois - Téléchargée 820 fois

Description

Pour ceux qui veulent enlever les flèches des icones du Bureau, quel que soit l'OS employé, j'ai fait un petit logiciel qui permet en plus d'aider à comprendre la manipulation du registre, grâce à un module de Class, qui n'est pas de moi, mais que j'ai essayé de commenter et qui est très facile d'emploi.
Le problème des éventuelles cases noires est aussi traité.
On peut enlever la Chaîne Raccourci
On peut lire et régler les espacements des icones.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
112
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
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
112 >
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
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
112 >
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.