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