Supprimer les flèches des icônes du bureau

Soyez le premier à donner votre avis sur cette source.

Vue 1 580 fois - Téléchargée 207 fois

Télécharger le projet
Commenter

Description

J'ai fait ce programme, car j'étais fatigué de recréer manuellement la clé dans la base du registre à chaque mise à jour de Windows 10

voir ceci:

https://www.pcastuces.com/pratique/astuces/3597.htm

j'ai eu des difficultés pour créer la clé par code dans HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerShell Icons

https://openclassrooms.com/forum/sujet/creer-une-cle-registre-dans-hkey-local-machine?page=1

Pour les débutants voir si une clé existe, la creer , la supprimer.

Redémarrer le PC par code, mettre un fichier ICO dans :C:ProgramDataShellIconsnoArrow.ico en créant le dossier pour le recevoir.

Ce programme n'est valable que pour Windows 10

Voilà bonne programmation.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
vb95
Messages postés
1911
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
16 août 2019
 65 -
bonjour Cs_Le Pivert
Pas mal : j'achète comme dit le coach de "Danse avec les Stars" Jean-Marc Généreux

Une vérification "Admin" en vrai Do.Net 

Private Function IsAdmin() As Boolean

        Return New WindowsPrincipal(WindowsIdentity.GetCurrent).IsInRole(WindowsBuiltInRole.Administrator)

    End Function


il faut ajouter en Import 
Imports System.Security.Principal
Signaler
cs_Le Pivert
Messages postés
6155
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2019
 83 -
Bonjour vb95,

Merci pour l'info, je le mettrais dans la prochaine mise à jour. C'est un code que j'ai trouvé il y a quelques années et que je reprends sans me poser la moindre question!
La difficulté comme je le disais dans la description était de créer la clé. Je me suis arraché les cheveux. Il a fallu que je tombe sur ce site pour pouvoir finaliser.
Je parlais des mises à jour sur Windows 10, elles t'imposent des applications:
Edge pour le navigateur et aussi la visionneuse d'images.J'en oublies certainement.

Cordialement

Le Pivert
Signaler
vb95
Messages postés
1911
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
16 août 2019
 65 -
bonjour cs_Le Pivert
Les applications ne sont pas imposées : elles sont installées d'office avec Windows 10 : rien ne t'empêche d'utiliser Firefox comme navigateur Internet

Au niveau "Administrateur" j'ai repensé à ce code que j'utilise dans la source "Accès direct disque et Partitions" qui nécessite les droits Administrateur 

' Chargement de la Form
    Private Sub FormSelectintrofrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' Test si on est en mode Administrateur
        If New WindowsPrincipal(WindowsIdentity.GetCurrent).IsInRole(WindowsBuiltInRole.Administrator) = False Then
            ' lancement du même processus en mode Administrateur
            Process.Start(New ProcessStartInfo(Assembly.GetEntryAssembly.CodeBase) With {.UseShellExecute = True, .Verb = "runas"})
            ' on ferme le processus courant ( celui qui n'était pas Administrateur )
            Application.Exit()
        Else
            ' Instructions au chargement de la Form ( processus Administrateur )
            Location = GetLocationForm()
            ClassCommunForm.Location = Location
        End If

    End Sub


Ma Form de départ s'appelle FormSelectintrofrm
Si on démarre avec les droits Administrateur on va directement aux instructions au chargement de la form sinon on réexécute le même processus mais avec les droits Administrateur et on revient alors aux instructions de chargement de la form
Evidemment il faut importer 
Imports System.Security.Principal
Imports System.Reflection
Imports System.Diagnostics


Ainsi lorsque l'on lance l'application on ne soucie pas si on est Admin ou pas !
Par contre si on veut débuguer il faut que Visual Studio soit lancé en "Tant qu'Administrateur" : on met un raccourci sur le bureau de l'Exe de Visual Studio et on le met en Admin avec les propriétés avancées
Sinon on lance l'application "Administrateur" et les points d'arrêts par exemple sont sur l'application "Non Administrateur"
Signaler
cs_Le Pivert
Messages postés
6155
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2019
 83 > vb95
Messages postés
1911
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
16 août 2019
 -
Bonjour vb95,

J'ai essayé ton code, c'est super. cela évite le MsgBox , tu ouvres en mode Administrateur direct

Par contre j'ai une erreur sur ces 2 lignes: 

 ' Instructions au chargement de la Form ( processus Administrateur )
            Location = GetLocationForm()
            ClassCommunForm.Location = Location


je les ai remplacé par cela: 

   ' Instructions au chargement de la Form ( processus Administrateur )
            Me.StartPosition = FormStartPosition.WindowsDefaultLocation


Merci encore et bonne soirèe

@+ Le Pivert
Signaler
vb95
Messages postés
1911
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
16 août 2019
 65 > cs_Le Pivert
Messages postés
6155
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2019
 -
Bonjour cs_Le Pivert 
' Instructions au chargement de la Form ( processus Administrateur )
            Location = GetLocationForm()
            ClassCommunForm.Location = Location

Ces 2 lignes font partie de mon propre code et sont juste là pour l'exemple .
Tu les remplaces par le code que tu as besoin d'exécuter à ton Form_load
Heureux que cela ait pu te servir
Afficher les 9 commentaires
S'inscrire maintenant

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.

Du même auteur (cs_Le Pivert)