Comment intégrer l'explorateur Windows à mon application ?

Bonjour à tous :D

Je voudrais savoir quel est le composant qui me permet de voir l'arborescence des mes lecteurs disques, autrement dit; une sorte d'explorateur Windows (Comme on le voit à gauche de n'importe quelle fenêtre Windows au moment de cliquer sur le bouton Explorer - Avoir toute l'arborescence des dossiers et fichiers...

Je voudrais implémenter ça au niveau de l'interface de mon application, car j'aurais besoin d'intégrer cette fonctionnalité d'exploration des disques pour donner à l'utilisateur l'option: Ouverture de fichiers

Merci:P

Salut,

Regarde autour des Composants TreeView et ListView ...
Ca devrait te correspondre je pense ;)

Citation:

---

Envoyé par ero-sennin

Salut,

Regarde autour des Composants TreeView et ListView ...
Ca devrait te correspondre je pense ;)

---

Avec cette solution, il faut générer soi-même la liste des répertoires et des fichiers (avec un Tsearchrec).
Sinon, il y a les vieux composants TFileListBox, TDirectoryListBox, ...
Ou alors, TShellTreeView, TShellListView, ...

Citation:

---

Envoyé par Lung

Avec cette solution, il faut générer soi-même la liste des répertoires et des fichiers (avec un Tsearchrec).
Sinon, il y a les vieux composants TFileListBox, TDirectoryListBox, ...
Ou alors, TShellTreeView, TShellListView, ...

---

Oui, je viens de tester le TDirectoryListBox, et je présume qu'il y'a un code à inserer pour pouvoir le lier avec le: FileListBox, non???

Je voudrais pouvoir voie dans mon arborescence les fichiers existants et pouvoir les ouvrir à partir de mon application (Ficher excel, et fichiers Acces)

Merci

Citation:

---

Envoyé par souminet

Oui, je viens de tester le TDirectoryListBox, et je présume qu'il y'a un code à inserer pour pouvoir le lier avec le: FileListBox, non???

---

Le TTDirectoryListBox a une propriété FileList : il faut sélectionner dans la liste le FileListBox.

Citation:

---

Envoyé par souminet

Je voudrais pouvoir voie dans mon arborescence les fichiers existants et pouvoir les ouvrir à partir de mon application (Ficher excel, et fichiers Acces)

---

Avec un TFilterComboBox (faut renseigner sa propriété FileList), tu peux restreindre les extensions avec Filter.

Ok, tout marche à perfection reste à trouver maintenant comment en cliquant sur n'importe quel fichier du : FileListBox, on puisse l'ouvrir à travers l'application adéquate à chaque type de fichier (Selon Extension)!!!

Exemple: Si je clique sur Test.xls, le résultat souhaité serait l'ouverture du fichier en question à travers Excel...

La procédure de lancement d'excel à partir de delphi est à ma portée, c'est son intégration au code de manière à être lancée à partir d'un simple click sur un nom de fichier du FileListBox, qui me pose problème...:oops:

Merci +++

En plus de ce qui me pose problème avec le lancement de l'application adéquate pour chaque fichier , je me demande pourquoi quand je click dans le DirectoryListBox sur la racine (C'est à dire le C:\ ) je vois qu'il ne se referme pas, c'est assez peu maléable, alors comment personaliser le DirectoryListBox comme pour un explorateur Windows ( utiliser les signes: + et - à gauche des répertoires)????:(

Merci:P

si tu utilse TShellListView, ..., TShell*View, alors tout peut etre fait automatiquement, sans une ligne de code

Citation:

---

Envoyé par guillemouze

si tu utilse TShellListView, ..., TShell*View, alors tout peut etre fait automatiquement, sans une ligne de code

---

Merci tout marche à merveille!! :king:

Cependant un message d'avertissement apparait au moment de la compilation disant en gros: que le ShellCtrls est spécifique à une plate forme ???

Donc, au moment de créer mon excécutable à l'aide du InstallSield cela posera- t-il problème ???? Mon application devrait tourner sur des PC sous XP Service Pack2...

Merci ++8-)

Non, je crois que le message indique que ça n'est pas compatible avec linux.

Pour ne plus voir ce message, j'ajoute ces deux lignes au début de mon script (après le nom de l'unité) :

Code:

---

1 2	{$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_PLATFORM OFF}

---

Il y a aussi les TOpenDiaglog\TSaveDialog ... qui utilise les boites de dialogue du système en cours car TFileListBox, TDirectoryListBox c'est un peu vieux comme Window 3.1 ou 95 ... TShellTreeView, TShellListView (Palette exemple, donc pas documenté mais sources dans Demos) sont des composants entièrement "fait main" , dommage qu'on est pas en standard des objets d'encapsultation de SysTreeView32 et SysListView32 de l'explorateur windows

Merci ++ , c'est bon tout est ok, :yaisse2:

Le message ne s'affiche plus grâce aux 2 lignes :

Code:

---

1 2	{$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_PLATFORM OFF}

---

Merci encore!!