Liste aller geöffneten Dateien in Delphi IDE

[mattia72]

Hallo zusammen,
ich möchte in einen Extension bpl die Liste von geöffneten Dateien abfragen.

Ich habe so probiert, aber diese Methode liefert nur die dpr Dateien, die zu Projektgruppe gehören und die Units die zu meiner Extension gehören (selbst wenn die Extension-Projekt gar nicht in der Projektgruppe vorhanden ist )

Delphi-Quellcode:

class function IOTAUTils.GetOpenedEditBuffers: TArray<string>;
var
  service : IOTAEditorServices;
  it : IOTAEditBufferIterator;
  buffer : IOTAEditBuffer;
begin
  Result := [];
  service := (BorlandIDEServices as IOTAEditorServices);
  if Assigned(service) then begin
    if (service.GetEditBufferIterator(it)) then begin
      for var i := 0 to it.Count - 1 do begin
        buffer := it.EditBuffers[i];
        if buffer.EditViewCount > 0 then begin // so kann man die *.dpr Dateien ausfiltern, die nicht als Text Datei geöffnet sind
          Result := Result + [buffer.FileName];
        end;
      end;
    end;
  end;
end;

Wie sollte es richtig gemacht werden?