Associé une image (icône) à une extension précise

Résolu
Jeromedu79
Messages postés
120
Date d'inscription
dimanche 9 janvier 2011
Statut
Membre
Dernière intervention
23 décembre 2012
- 7 déc. 2011 à 16:57
Gabilach
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014
- 7 déc. 2011 à 20:54
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

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

7 déc. 2011 à 18:41
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...
3
Gabilach
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014

7 déc. 2011 à 18:52
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...
3
Jeromedu79
Messages postés
120
Date d'inscription
dimanche 9 janvier 2011
Statut
Membre
Dernière intervention
23 décembre 2012
1
7 déc. 2011 à 20:04
Bonsoir,

Sa fonctionne très bien !

Merci beaucoup

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

7 déc. 2011 à 20:54
Comptant de t'avoir aidé !!! Merci pour mon avatar

Bonne programmation !

Gabilach...
0