Equivalent de 'Application.ExeName' pour le source du projet

Bonjour à tous,

Je voudrais connaître le répertoire où se situent les sources du projet en cours de conception dans l'EDI. J'en ai besoin pour gérer le comportement d'un composant en mode conception (csDesigning in ComponentState).
Quand on utilise 'Application.ExeName' en conception ça ne donne pas le répertoire des sources : ça donne plutôt apparemment le répertoire par défaut de Delphi :? .

Une idée ?

Merci,
Bobby-B

Code:

---

ExtractFilePath(Application.ExeName)

---

Application.ExeName :Contient le nom de fichier de l'exécutable de l'application, y compris le chemin d'accès.

Tu devrais trouver ton bonheur dans le dossier Sources\ToolsAPI de Delphi. Voici une méthode pour obtenir ce que tu cherche. Il te faudra tout d'abord ajouter Sources\ToolsAPI au chemin de recherche de ton projet.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

uses ToolsAPI;   ...   var project: IOTAProject; begin project:= GetActiveProject; if project = nil then result:= 'Pas de projet' else begin result:= project.Filename; end; end;

---

Merci Pierre pour tes conseils éclairés.
Ca marche parfaitement avec le code que tu as écrit.

Merci,
Bobby-B