Répertoire dans lequel est situé le programmeRésolu

Question

Salut à tous,

Comme l'indique le titre, je cherche à obtenir le chemin complet du répertoire dans lequel se trouve le programme Delphi. Au final, ce sera pour en faire une execution automatique avec windows (avec Registry et HKLM\Software\...\Run\).
Après une longue fouille dans le fichier d'aide je m'avoue vaincu. (Je pari que obtenir le répertoire est enfantin mais bon... )

Voila ce que ça doit donner au final:




var
 r:TRegistry, chemin: string;
begin
  if cb_winstart.checked then
  begin
    chemin := '???????';// Mais comment faire?! ^^
    r.RootKey := HKEY_LOCAL_MACHINE;
    r.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
    r.WriteString('mon prog',chemin);
end;







Merci à tous, Julien

jlen100 · Accepted Answer

salut,

tu peux récupérer le chemin par :

chemin :=extrcatfiledir(application.Exename).


@+

jlen

Cirec · Answer

Salut,
où encore :

Chemin := ExtractFilePath(ParamStr(0));

@+
Cirec

cs_Pingouin57 · Answer

Génial, merci beaucoup à vous deux, mon projet sera bientôt fini et mis sur le site

Cirec · Answer

Tiens pour le reste regarde le snipet de Florenth

http://www.codyx.org/snippet_lancer-exe-demarrage-windows_56_l_delphi_13.aspx

@+
Cirec

Cirec · Answer

Et il y a aussi celle-ci qui devrait fonctionner en mode Service :

Chemin := ExtractFilePath( GetCommandLine );

@+
Cirec

ni69 · Answer

effectivement cirec,
merci pour cette précision 

@+
Nico {www.ni69.info}

<hr size="2" width="100%" />
N'oubliez pas de cliquer sur Réponse Acceptée lorsque la réponse vous convient !

Cirec · Answer

Mais je t'en prie, Nico, c'est avec plaisir que je partage mes connaissances avec vous tous 

D'ailleurs petite précision supplémentaire : 

TApplication.ExeName Utilise :
ParamStr(0)

et ParamStr(Index)  Utilise :
...
  ifIndex =  0  then 
    SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)))
  else
  begin
    P : = GetCommandLine;
...

Et voili voilou,
 la boucle est bouclé 

@+
Cirec

ni69 · Answer

@+
Nico {www.ni69.info}

Répertoire dans lequel est situé le programme

8 réponses

Votre réponse

Discussions similaires