Discussion :

[bigey3]

salut

je souhaiterais exécuter une application à partir de delphi.
le soucis c'est que je souhaiterais récuperer automatiquement le chemin de localisation de l'application et affecter le chemin à la fonction ShellExecute.

un coup de pouce
merci

[ero-sennin]

Salut,

Si je comprends bien, tu souhaites scanné le Disque Dur afin de rechercher le chemin de l'exécutable à lancer avec ShellExecute car celui ci peut être n'importe ou, c'est ça ?

[edam]

recherche dans la faq:
ExtractFilePath(Application.ExeName);

[Cl@udius]

Salut

Entre la réponse d'Ero-Sennin et celle d'Edam, effectivement on peut se poser la question.

Veux-tu récupérer le chemin de ta propre application ou celle que tu vas appeler via ShellExecute ?

@+

[Gilbert Geyer]

Salut,

ExtractFilePath(Application.ExeName); ne renvoie que le chemin de l'application à partir de laquelle tu veux récuperer le chemin de localisation de l'autre application qu'il veut lancer avec ShellExecute.

Et comme dit Ero-sennin si tu ne connais que le nom-court de cette autre application il ne te reste plus qu'à scanner le disque dur pour en trouver le chemin avec FindFirst et FindNext.

A+

EDIT de 15h07 : voici du code pour scanner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Function RechercheFichier(Nom,Chemin : String) : String;
Var      SR : TSearchRec; R : Integer; S : String;
Begin    If FileExists(Chemin+Nom) Then
         Begin Result:=Chemin+Nom; EXIT; End;
         R:=FindFirst(Chemin+'*.*',16,SR);
         While R=0 Do
         Begin If (SR.Name<>'.') And (SR.Name<>'..') Then
               Begin S:=RechercheFichier(Nom,Chemin+SR.Name+'\');
                     If S <>'' Then
                     Begin Result:=S; EXIT; End;
               End;
               R:=FindNext(SR);
         End;
         Result:='';
End;
 
// Utilisation :
 
procedure TfrmTrImages.bCheminClick(Sender: TObject);
begin     ShowMessage(RechercheFichier('mem12u.exe','C:\'));
end;

A+

EDIT de 15h18: Un oubli : pour récupérer le chemin seul il faut bien entendu faire:

Code :

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

CheminDeLocalisation:=ExtractFilePath(RechercheFichier('NomCourt.exe','C:\'));

A+

[bigey3]

salut

je ne sais pas à priori où se trouve le chemin mais je connais le nom de l'application à exécuter

[Gilbert Geyer]

Salut,

On a certainement rédigé au même moment tu peux trouver ce chemin comme indiqué dans mon message précédent.

A+

[bigey3]

juste une dernière choz,
serait t-il possible de faire cette recherche sur une autre partition à la fois(i.e sur le c: et sur le d.


a+

[ero-sennin]

Re,

Je me pose une question ... N'est il pas possible de lire le chemin dans la base de registre... Je dis celà car j'avais fait un petit programme pour rechercher la présence ou non d'un exécutable ... et j'avais eu un soucis. J'ai téléchargé PSPad et je l'avais renommé en PSPad.exe pour dire de le nommé explicitement et je l'avais mis dans mon dossier utilitaires (dossier où je stocke tous les outils utile). En utilisant la fonction de recherche, j'avais bien le chemin de l'exécutable mais malheureusement, j'avais le chemin du PSPad.exe (installeur) et non le PSPad.exe qui sert au lancement du programme. J'avais donc cherché dans la base de registre pour voir si il n'y avait pas une clé qui contiendrait le chemin de l'exécutable et en cherchant un peu, j'ai trouvé. Donc dans mon cas, je test juste si une clé existe, si oui, je lis sa valeur, si la clé n'existe pas, c'est que le programme n'est pas installé ...

Pour info, c'était cette clé :

Code :

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

HKEY_CURRENT_USER\SOFTWARE\PSPad\PSPadPath

Je ne sais pas si celà sera applicable dans ton cas ...
A voir

[Gilbert Geyer]

Salut,

Bigey3 demande :juste une dernière choz,
serait t-il possible de faire cette recherche sur une autre partition à la fois(i.e sur le c: et sur le d.

... mais bien sûr, comme ceci :

Code :

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

1
2
3
4
5
6
7
 
    ...
    CheminDeLocalisation:='';
    CheminDeLocalisation:=ExtractFilePath(RechercheFichier('NomCourt.exe','C:\'));
    if CheminDeLocalisation='' 
    then CheminDeLocalisation:=ExtractFilePath(RechercheFichier('NomCourt.exe','D:\'));
    ...

A+

EDIT : si l'astuce d'Ero-sennin marche cela sera certainement plus rapide que d'avoir à scanner le disque par contre j'ai pas pigé comment utiliser son astuce.

[ero-sennin]

EDIT : si l'astuce d'Ero-sennin marche cela sera certainement plus rapide que d'avoir à scanner le disque par contre j'ai pas pigé comment utiliser son astuce.

C'est simple . Lorsque tu installes programme (ça dépend lesquels) en général, il y a une clé registre qui faire référence à l'endroit ou est enregistré ton programme.

Par exemple PSPad, si tu l'installes dans C:\PSPad\, il te suffit de lire la valeur de la clé HKEY_CURRENT_USER\SOFTWARE\PSPad\PSPadPath et tu as le répertoire de l'exécutable. J'essaierai de te faire un petit exemple lorsque les fêtes seront passées

Au passage , bonne année ^^

[Gilbert Geyer]

Salut et Bonne Année à tous,

A Ero-sennin : Merci pour le petit exemple à l'occasion.
Je savais qu'on pouvait trouver dans la base de registre les *.exe qui se lancent automatiquement lors du démarrage de Windows.
Tu m'apprends qu'on y trouve également ceux des programmes qu'on installe sous Windows.
Mais si je place via l'Explorer-Windows un *.exe quelconque dans un dossier quelconque est-il recensé automatiquement dans la base de registre ?

A+

[ero-sennin]

Salut,

Mais si je place via l'Explorer-Windows un *.exe quelconque dans un dossier quelconque est-il recensé automatiquement dans la base de registre ?

A ma connaissance non ... Je te parlais en fait de programmes qui s'installent via un installeur ... Par exemple, pour reprendre le cas de PSPad, lorsqu'on l'installe, on crée un lien dans la base de registre ... (voir post précédent). Si tu veux un autre exemple, il y a aussi Skype qui conserve dans une clé le chemin de l'exécutable :

Code :

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

1
2
 
HKEY_CURRENT_USER\SOFTWARE\Skype\Phone\SkypePath

Je t'avais promis un exemple, le voici (pour le cas de PSPad) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.BtnGetPathExecutableClick(Sender: TObject);
var
CheminExecutable:string;
begin
 CheminExecutable:='';
 with TRegistry.Create do
 begin
   RootKey:=HKEY_CURRENT_USER;
   if OpenKey('SOFTWARE\PSPad',false) then
     CheminExecutable:=ReadString('PSPadPath');
 end;
 
 if CheminExecutable<>'' then
   ShowMessage('Chemin de l''exécutable: '+CheminExecutable)
 else
   ShowMessage('Exécutable non trouvé');
end;

A+

[Gilbert Geyer]

Re-Salut,

Merci Ero-sennin pour ton exemple de code : je le testerai demain.
Mais dommage que ça ne marche pas avec tous les *exe.

A+