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

Résolu
Jeromedu79 Messages postés 119 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 119 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
Rejoignez-nous