Trouver un exécutable commencant par...

Bonjour à tous,

Mon but est le suivant :

À partir de mon programme, rechercher dans le répertoire courant (celui du programme) un exécutable dont le nom commence par une chaîne spécifique.

Par exemple, supposons que l'exécutable s'appelle UnExecutable.exe, si j'appellais supposons ma fonction :

Recherche('UnExec');

Ça me retournerait l'exécutable en question. Auriez-vous quelques pistes à me fournir afin d'arriver à ce but?

Merci d'avance... :)

Bonjour,

Tu pourrais utilise pas une fonction dos que tu récupère genre : dir unexec*.exe

Regarde les fonctions FindFirst et FindNext pour la recherche. -> :faq:

Le répertoire peut-être obtenu par ExtractFilePath(ParamStr(0)), le nom de ton prog est dans ParamStr(0) et tu en extrais ce que tu veux avec Copy

:idea: tape ces noms de fonction dans l'éditeur, place le curseur dessus puis :f1:

Il te faut parcourir le repertoire aide toi de cela

http://delphi.developpez.com/faq/?pa...listerfichiers
Au lieu de cette ligne

Code:

---

If FindFirst(Chemin+'*.*',faAnyFile,Info)=0 Then

---

tu met celle la

Code:

---

If FindFirst(Chemin+'*.exe',faAnyFile,Info)=0 Then

---

Et ensuite tu recherhce ta chaine dans Info.FindData.cFileName

Citation:

---

Envoyé par Charette

Code:

---

If FindFirst(Chemin+'*.exe',faAnyFile,Info)=0 Then

---

---

ou encore plus simplement

Code:

---

If FindFirst(Chemin+'UnExec*.exe',faAnyFile,Info)=0 Then

---

Comme ça tu as tous les fichiers correspondant à ta recherche.

Un gros merci à tous!!!

Mon programme sera situé sur un cd, alors j'ai procédé comme suit :

Code:

---

1 2 3 4

if FindFirst( ExtractFileDrive( ParamStr(0) ) + '\UnExec*.exe', faAnyFile, l_Info) = 0 then begin //Traitement... end;

---

Nickel chrome!!!
Merci encore... :ccool:

N'oublie pas d'appeller la foncntion FindClose, comme dit dans l'aide Delphi :

Citation:

---

Envoyé par Aide Delphi

Remarque : La fonction FindFirst alloue des ressources (mémoire) qui doivent être libérées avec FindClose.

---

:wink: