Discussion :

[Griswold]

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...

[poussinphp]

Bonjour,

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

[qi130]

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

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

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

[Charette]

Il te faut parcourir le repertoire aide toi de cela

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

tu met celle la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[sovitec]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou encore plus simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Griswold]

Un gros merci à tous!!!

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Nickel chrome!!!
Merci encore...

[Lung]

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

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