Discussion :

[bobby-b]

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

[-Yoann-]

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

ExtractFilePath(Application.ExeName)

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

[Pierre Castelain]

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 :

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
 
uses
  ToolsAPI;
 
...
 
var
  project: IOTAProject;
begin
  project:= GetActiveProject;
  if project = nil then
    result:= 'Pas de projet'
  else
  begin
    result:= project.Filename;
  end;
end;

[bobby-b]

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

Merci,
Bobby-B