Comment obtenir le nom du fichier source principal à partir d'un IOTAProject?

Question

Depuis au moins D2007, un fichier de projet peut avoir un fichier source principal avec un nom de base différent. Les démos de DevExpress en font usage: E.g. Il existe un seul fichier dpr UnboundListDemo.dpr qui sert de source principale pour UnboundListDemoD11.dproj et UnboundListDemoD12.dproj.

Maintenant, si j'ai un Project: IOTAProject puis Project.FileName renvoie le nom du fichier dproj. Je n'ai pas trouvé de manière "officielle" pour obtenir le nom du fichier dpr. Y a-t-il? On peut l'obtenir en analysant le fichier dproj (voir here) mais je préférerais une méthode ToolsAPI.

---

Edit: je suis venu avec ce code basé sur Jon's answer:

function IsProjectSource(const FileName: string): Boolean; 
begin 
    Result := IsDpr(FileName) or IsBpr(FileName) or IsPackage(FileName); 
end; 

function GxOtaGetProjectFileName2(Project: IOTAProject; NormalizeBdsProj: Boolean = False): string; 
var 
    i: Integer; 
    Module: IOTAModule; 
    Editor: IOTAEditor; 
begin 
    Result := ''; 
    if Assigned(Project) then begin 
    Result := Project.FileName; 
    if NormalizeBdsProj and IsBdsprojOrDproj(Result) then begin 
     Module := Project as IOTAModule; 
     for i := 0 to Module.ModuleFileCount - 1 do 
     begin 
     Editor := Module.ModuleFileEditors[i]; 
     if IsProjectSource(Editor.FileName) then begin 
      Result := Editor.FileName; 
      Exit; 
     end; 
     end; 
    end; 
    end; 
end; 

où les routines est ... sont de GX_GenericUtils.

---

Edit 2: Comment créer une de ces situations:

1. Créer une nouvelle demande VCL.
2. Enregistrer sous MyProject.dproj.
3. Fermez le projet dans l'EDI.
4. Dans l'explorateur Windows, renommez MyProject.dproj en MyProjectD11.dproj.
5. A partir de maintenant, assurez-vous d'ouvrir MyProjectD11.dproj, et non MyProject.dpr!

Answer 1

Si vous parcourez les éditeurs sur l'instance IOTAProject, vous trouverez probablement le dpr.

var 
    Module: IOTAModule; 
    Project: IOTAProject; 
    Editor: IOTAEditor; 
begin 
    // Set Project Here.... 
    Module := Project as IOTAModule; 
    for I := 0 to Module.ModuleFileCount - 1 do 
    begin 
    Editor := Module.ModuleFileEditors[I]; 

    end; 
end;