Ajouter une entrée dans le menu contextuel de windows

Bonsoir,

J'ai développé une application et je voudrais, lorsque je fais un clic droit sur un fichier .txt par exemple, avoir une entrée dans le menu contextuel de windows indiquant "Ouvir tous les fichiers .txt du dossier"...

Je sais qu'il faut trifouiller dans la BDR mais j'ai pas trop trouvé et comme on dit, faut pas trop bidouiller la BDR sans savoir ce que l'on fait :mrgreen:
Si quelqu'un peut m'aiguiller

Merci ;)

Re,

J'ai bidouillé un peu et le code ci dessous a l'air de fonctionner :

Code:

---

1 2 3 4 5 6 7

Windows Registry Editor Version 5.00   [HKEY_CLASSES_ROOT\*\shell\FastOpen] @="FastOpen"   [HKEY_CLASSES_ROOT\*\shell\FastOpen\command] @="FastOpen.exe"

---

Maintenant, ce que je cherche à faire, c'est lors du clic droit sur par exemple toto.txt,mon programme FastOpen s'ouvre et récupère le nom du fichier qui l'a appelé (ici toto.txt).

Je ne sais pas si j'ai étais assez clair, sans quoi, n'hésitez pas a me demander plus d'explications.

Merci

Salut Ermite pas net :mouarf:

Essaie:

Code:

---

1 2 3

@="FastOpen.exe %1"

---

Citation:

---

Envoyé par Pedro

Salut Ermite pas net

---

Hé oui :aie:

Bon, je vais poussé un peu mes explications et le but du programme ;)

Mon programme doit, lorsque le fait un clic droit sur fichier.txt par exemple, ouvrir tous les .txt contenu dans le même dossier avec PsPad.

Pour résumé :

1) Clic droit sur toto.txt dans c:\monprog
2) Mon programme s'ouvre, récupére le nom du fichier sélectionné et ensuite, je parcours tous les fichiers du dossiers pour lire les extensions
3) Les fichiers ayant la même extension que le fichier sélectionné seront ouvert avec Pspad via un ShellExecute

Le soucis que j'ai, c'est récupérer le nom du fichier sélectionné qui servira de base pour le test des autres fichiers.

En espérant que ca soit plus clair dans vos esprits
J'espère avoir de vos réponses (en attendant, je cherche encore)

Merci ;)

Citation:

---

Envoyé par ero-sennin

Hé oui :aie:

---

:mouarf: Salut Jiraya :aie:

Voila ce que je te conseille:
Premièrement, il te faut ajouter cette fameuse entrée dans le menu contextuel. Pour celà:
http://delphi.developpez.com/faq/?pa...#associericone
Inspire-toi de ce code pour ajouter une action pour les fichiers txt.
Cette action lancera ton prog qui récupèrera le fichier txt.
Une fois le fichier récupéré, extrait le répertoire (ExtractFilePath) et ensuite, par le code, parcourt le répertoire et ouvre autant de programme que tu veux dès que tu rencontres un txt ;)

Re,

Je viens de voir ton post (pour dire, j'avais même pas trouvé dans la FAQ !!)

Sauf erreur de ma part, cela enregistre dans le registre tout ce qui doit être renseigné pour créer mon nouvel item dans le menu contextuel.

Cependant, je ne vois toujours pas comment récupérer le %1 (qui me donne le chemin du fichier a ouvrir) dans mon application.

Je suis pas bête pourtant? Si???!!! :aie:

Citation:

---

Envoyé par ero-sennin

Cependant, je ne vois toujours pas comment récupérer le %1 (qui me donne le chemin du fichier a ouvrir) dans mon application.

---

Le "%1" est une "commande" de Windows. En fait, ce %1 représente le nom du fichier sélectionné ;)
Du coup, il te suffit simplement que ton appli prenne en compte les paramètres. Windows se fera un plaisir de remplacer %1 par le fichier sélectionné et donc passera ce nom de fichier en paramètre pour ton appli :)

Citation:

---

Envoyé par ero-sennin

Je suis pas bête pourtant? Si???!!! :aie:

---

Meuh non ;)

Lol, décidemment, j'ai du mal, tu m'excusea ...

J'ai un bout de code, juste pour tester comme ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.FormCreate(Sender: TObject); var i:integer; fichierSelectionne:string; extension:string; dossierActuel:string; begin fichierSelectionne:=????;//La je comprends pas comment tu veux récupérer mon fichier sélectionné dossierActuel:=???;//La je sais faire mais pas le temps de le coder. extension:=ExtractFileExt(fichierSelectionne); grille:=TStringList.Create; if (FindFirst(dossierActuel+'*'+extension,faDirectory,sr))=0 then begin Begin repeat if (sr.Name<>'.')And(sr.Name<>'..')Then begin //ShowMessage(sr.Name); grille.Add(sr.Name); ShowMessage(grille.Text); end; until FindNext(sr)<>0; end; end; end;

---

C'est juste un petit code comme ca de test.
C'est surtout la récupération du fichier qui m'intéresse et c'est ca que je comprends (toujours) pas.

Merci pour ton aide Pedro :)

Allons un grand ninja comme toi sais chercher avec :f1: quand même ;)
ParamStr et ParamCount ;)

:arf: Trop bête que j'étais!!!!!

Je m'obstinai à mettre %1 en paramètre à ParamStr depuis hier soir!!!
Le principal, c'est que j'ai compris le fonctionnement !!
Merci Pedro pour tes explications ;) et désolé de t'avoir déçu (même les plus grands ninjas ont des moments de faiblesses ;) )

Merci encore
Cordialement Ero-Sennin