Associé une image (icône) à une extension précise [Résolu]

Signaler
Messages postés
120
Date d'inscription
dimanche 9 janvier 2011
Statut
Membre
Dernière intervention
23 décembre 2012
-
Gabilach
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014
-
Bonjour,

Je suis actuellement entrain de programmer une petite application.
Lors de son exécution, elle créer des fichiers cryptés, leurs extension n'est pas reconnues par Windows.

Une fois que le fichier ce créer, un icône tous blanc apparaît.

Je voulais donc savoir si il était possible par le biais de la base de registre (ou autre) d'attribuer un icône bien précis en fonction d'une extension qui n'est pas reconnue par windows (qui n'existe pas).

PS : J'ai ajouté ce post dans cette catégorie car je pense que ma question n'a rien à voir avec le vb.net.

Merci :)

4 réponses

Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014

Bonjour, essaye avec ca :

My.Computer.Registry.ClassesRoot.CreateSubKey(".EXTENSION")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\.EXTENSION", _
        "PerceivedType", "TYPEDEFICHIER")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\.EXTENSION", _
        "", "TYPEDEFICHIER")
        My.Computer.Registry.ClassesRoot.CreateSubKey("TYPEDEFICHIER")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\TYPEDEFICHIER\Defaulticon", _
       "", "CHEMINDETONICONEDEVANTETRESURLEDISQUEDUR")
    End Sub


Parcontre ton application doit être lancer en admin.
Gabilach...
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014

Pour préciser, TYPEDEFICHIER doit être remplacer dans :

My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\.EXTENSION", _
        "PerceivedType", "TYPEDEFICHIER")


Par le type de fichier comme texte vidéo etc...

Et dans :

My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\.EXTENSION", _
        "", "TYPEDEFICHIER")

My.Computer.Registry.ClassesRoot.CreateSubKey("TYPEDEFICHIER")

My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\TYPEDEFICHIER\Defaulticon", _
       "", "CHEMINDETONICONEDEVANTETRESURLEDISQUEDUR")


Il doit être remplacer par la vrai de l'extension mais tout attaché, par exemple rtf = RichTextFiles, donc TYPEDEFICHIER sera RichTextFiles.

Gabilach...
Messages postés
120
Date d'inscription
dimanche 9 janvier 2011
Statut
Membre
Dernière intervention
23 décembre 2012

Bonsoir,

Sa fonctionne très bien !

Merci beaucoup

PS : J'aime bien ton avatar d'anonymous
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014

Comptant de t'avoir aidé !!! Merci pour mon avatar

Bonne programmation !

Gabilach...