Bonjour

J'essaye de recréer un explorateur de fichier dans un champ de ma fenêtre.

Apparamment, windev ne le fait pas tout seul (dommage...)

J'ai trouvé comment lister mes répertoires et mes fichiers mais je cherche maintenant à afficher les icones correspondantes.

Avec certaines API, on peut dessiner l'icone associée à un fichier dans un champ image. Mais moi ce que je voudrais c'est mettre cette icone dans une liste (juste à coté du nom du fichier).

Quelqu'un peut-il m'aider ?

Je suppose que tu parles de l'API ExtractAssociatedIcon ou ExtractAssociatedIconEx pour l'extraction et de la fonction DrawIcon pour le dessin de l'icone?
Tu as essayé d'abord d'insérer le nom de l'application, et ensuite d'extraire / dessiner l'image dans le champ image de la table?

Il te reste la méthode bourrine, à savoir avoir un champ image caché dans ta fenêtre, tu y "dessines" par DrawIcon l'image de l'icone, et ensuite tu dis que l'image dans la liste est ce champ image:
champ_image=une_image
tableajouteligne(Table,champ_image,"fichier Exe")
Pour la ligne suivante, même principe...
champ_image=nouvelle_icone
tableajouteligne(Table,champ_image,"fichier Doc")


Par exemple, le code suivant permets de dessiner dans un champ image1, de mettre l'image générée dans la première ligne de la table, puis de charger dans image1 une autre image pour l'insérer dans la deuxième ligne de la table:



Et au final, on voit que la première ligne a "gardé" l'image générée ;)
Remarque:
Si pour une image générée tu mets l'image directement:

comme l'image n'est pas "terminée", rien ne sera affiché, il faut donc l'enregistrer en mémoire avant de la mettre dans la table, d'où le dSauveImageJPEG(Image1,enMémoire) qui permets de s'affranchir d'un fichier temporaire...

Très intéressant ce bout de code... j'essaierai ce soir en rentrant.

Merci beaucoup, je vous tiendrai au courant.

C'est parfait, ça marche vraiment bien ^^

(à part les prog qui ont leurs icones, certains exe ont leur propre icone mais l'icone associée aux .exe reste la même... mais bon ce n'est qu'un détail ^^)

Petite question : comment peut-on recupérer (dessiner ?) l'icone par défaut des disques durs dans l'explorateur ?

up

Encore une petite (rapide) recherche
Voici une astuce (et une autre et une troisième) non évaluée qui pourrait vous mettre sur la voie.
Merci de nous tenir informé.

En revanche rien pour avoir les icones par défaut semble-t il.

Je crois que je vais récupérer l'icone en dur (le fichier .ico) et l'afficher dans un champ image invisible si ça continue...

J'aurai bien directement changé l'icone en jpg pour m'en servir directement dans le tableau mais je ne sais pas si je peux faire en sorte qu'elle ne se trouve pas dans le programme une fois compilé. J'ai pas trop envie de voir un .jpg avec mon .exe et les dll ...

J'ai testé un truc l'autre jour qui ma bien plus pour recréer un explorateur windows.

Mettre un champs web ou l'activex "Navigateur Web Microsoft"
et faire : HTML1="c:\" ou ACTIVEX1>>Navigate("c:\")

- Avantage : Tout fonctionne (icone,drag & drop, menu contextuel windows, etc)
- Inconvenient : Aucune pris de controle possible ?

C'est une solution qui m'aurait bien plus pour un de mes programmes, peu de code a mette en place.
Mais impossible par exemple d'afficher les fichiers en mode détails par programmation.
Windows fait mention d'une structure : FOLDERSETTINGS lors de la creation d'une fenetre IShellView::CreateViewWindow , mais c'est plus du domaine de VB,C++ et Cie que windev.

Citation :
Justement, il semble que si... les tests sont en cours.

Super ce code !

Quand vous dites, aucune prise controle ... c'est à dire ?

Si on peut lui dire de toujours afficher les fichiers en mode liste et non en mode icone, moi ça me suffit ^^

Citation :

Ca m'interesse grandement, mais je n'ai reussi a rien faire.
Quand je cherche du coté de "webbrowser" sur le net ou msdn, je ne trouve que des references au navigateur internet et jamais pour l'explorateur.

Je ne sais pas comment fonctionne windows si pour lui le composant webrowser se transforme en shell.explorer et comment acceder au methode du shell.explorer.

Citation :
Peut-on en savoir + sur ces tests ?
- Nature
- Avancement
- Par qui ?

Merci

Bonjour,

En règle générale ce qui est faisable en VB doit pouvoir ce faire en WinDev du moins à partir de la version 90025k
(Je ne dit pas que cela est toujours simple )

Les interfaces sont accessibles avec WinDev 9 et DotNet.
Voir le dossier su Windev9 Et Les Objets Systèmes