Répertoire dans lequel est situé le programme

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

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

Tiens pour le reste regarde le snipet de Florenth

http://www.codyx.org/snippet_lancer-exe-demarrage-windows_56_l_delphi_13.aspx

@+
Cirec

A savoir, si tu programmes une application service, seule cette instruction fonctionnera :
     ExtractFilePath( ParamStr(0) );

Voir la raison ici :
http://www.delphifr.com/infomsg_APPLICATION-SERVICE-COPIE-EXECUTABLE_340667.aspx

@+
Nico {www.ni69.info}

---

Et il y a aussi celle-ci qui devrait fonctionner en mode Service :

Chemin := ExtractFilePath( GetCommandLine );

@+
Cirec

effectivement cirec,
merci pour cette précision

@+
Nico {www.ni69.info}

---

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 :
...
  if Index = 0 then
    SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)))
  else
  begin
    P := GetCommandLine;
...

Et voili voilou,
 la boucle est bouclé 

@+
Cirec

@+
Nico {www.ni69.info}