Supprimer les flèches des icônes du bureau

Soyez le premier à donner votre avis sur cette source.

Vue 1 642 fois - Téléchargée 224 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

vb95
Messages postés
1946
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 octobre 2019
68 -
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
cs_Le Pivert
Messages postés
6270
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 octobre 2019
87 -
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
vb95
Messages postés
1946
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 octobre 2019
68 -
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"
cs_Le Pivert
Messages postés
6270
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 octobre 2019
87 > vb95
Messages postés
1946
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 octobre 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
vb95
Messages postés
1946
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 octobre 2019
68 > cs_Le Pivert
Messages postés
6270
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 octobre 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

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.