Как получить основное имя исходного файла из объекта IOTAProject?

Question

Поскольку по меньшей мере D2007 файл проекта может иметь основной исходный файл с различным базовым именем. Демоверсии DevExpress используют это: например. существует единственный файл dpr UnboundListDemo.dpr, который служит основным источником как для UnboundListDemoD11.dproj, так и для UnboundListDemoD12.dproj.

Теперь, если у меня есть Project: IOTAProject, тогда Project.FileName возвращает имя файла dproj. Я не смог найти «официальный» способ получить имя файла dpr. Есть ли? Можно получить его от разбора файла dproj (см. here), но я бы предпочел метод ToolsAPI.

---

Edit: Я придумал этот код на основе 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; 

где это ... подпрограммы из GX_GenericUtils.

---

Edit 2: Как создать одну из этих ситуаций:

1. Создание нового приложения VCL.
2. Сохранить как MyProject.dproj.
3. Закрыть проект в IDE.
4. В проводнике Windows переименуйте MyProject.dproj в MyProjectD11.dproj.
5. С этого момента не забудьте открыть MyProjectD11.dproj, не MyProject.dpr!

Answer 1

Если вы повторяете редакторы экземпляра IOTAProject, вы, вероятно, найдете 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;