Discussion :

[Billy boy du 69]

Bonjour,

Je cherche la fonction qui me renvoie l'adresse de mon projet. En effet, l'utilisateur doit pouvoir mettre le programme dans un endroit différent et je dois adapter mes chemins excel,d'image et de son) en fonction de l'emplacement de programme. (Projet/image ou encore Projet/son donc je dois connaitre ce qui est avant (je ne vais comme meme pas obliger l'utilisateur de mettre le programme dans C\programme files\projet\... .
Merci a l'avance

[Cl@udius]

Salut

Pour récupérer le dossier dans lequel se situe ton exécutable, tu fais comme ceci:

Code :

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

1
2
 
  Dossier := ExtractFilePath(Application.ExeName);

@+ Claudius.

[ero-sennin]

Salut,

Pour répondre à ta question, tu as plusieurs solutions...

1) Tu crées un dossier qui va contenir ton exécutable ainsi que les sous dossiers images et sons. Dans ce cas, tu ne te soucis pas du chemin complet de l'endroit où se trouvent les ressources. Exemple d'arborescence :

Code :

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

1
2
3
4
5
6
7
8
- MonProgramme (dossier racine)
  |     - MonProgramme.exe
  |- Images (dossier)
  |     - toto.jpg
  |     - tata.jpg
  |-Sons (dossier)
  |     - toto.mp3
  |     - tata.mp3

Dans ce cas, dans ton programme, si tu veux utiliser une ressource située dans image par exemple, il te suffira de faire ainsi :

Code exemple :

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

Image1.Picture.LoadFromFile('images/toto.jpg');

2) Tu récupères le chemin de ton exécutable comme ceci :

Code :

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

1
2
3
4
5
var
  CheminAppli:String
begin
  CheminAppli:=ExtractFilePath(ParamStr(0)); //ParamStr(0) renvoie le chemin COMPLET de ton application (ex: C:\toto\tata\monprogramme.exe)
end;

Donc si ton exécutable se trouve dans C:\toto\tata\monprogramme.exe, le code si dessus te renverra C:\toto\tata\.

J'espère que ma réponse est claire

A+

[Edit]
Grillé Again

[Billy boy du 69]

Parfait vous êtes les meilleurs