Anyone else also having some problems with the OpenTools API when trying to get a list of Forms and DataModules from the current project?

Anyone else also having some problems with the OpenTools API when trying to get a list of Forms and DataModules from the current project?

What I do is loop over all modules in my ActiveProject. Next I check if all of the IOTAModuleInfo.ModuleType are in [ omtForm. omtDataModule ]. I thought that would only be true for forms / datamodules. Sadly ... it seems to be the case for Units as well.

So I had to resort to checking the FormName and DesignClass properties instead.

for lcv := 0 to Pred( GetActiveProject.GetModuleCount ) do
begin
aModuleInfo := GetActiveProject.GetModule( lcv );

{$IFDEF CODESITE}
CodeSite.SendString( 'aModuleInfo.FormName' , aModuleInfo.FormName );
CodeSite.SendString( 'aModuleInfo.DesignClass', aModuleInfo.DesignClass );
{$ENDIF}

{ Apparently this also returns us units and other stuff. Checking on
the ModuleType doesn't seem to work, since it always returned 0, so
I had to check for the FormName and DesignClass :-( }
// if ( aModuleInfo.ModuleType in setFormAndDataModules ) then
// begin
// ShowMessage( aModuleInfo.FileName );
// end;

if ( aModuleInfo.FormName <> '' ) and
( aModuleInfo.DesignClass <> '' ) then
begin
aModule := aModuleInfo.OpenModule;
aEditor := GetFormEditorFromModule( aModule );

if ( Supports( aEditor.GetRootComponent, INTAComponent, aNTAComponent ) ) then
begin
aComponent := aNTAComponent.GetComponent;

AddCoreClassDescendantsToComboboxes( aComponent, aModuleInfo );
end;
end;
end;

As you can see, I need to list all descendants from some Custom Form descendant in my Expert.

Currently I also have to open every form in my project to be able to see if the actual form inherits from my TCoreForm or Supports my ICoreForm interface. Anyone has any idea if it is possible to detect that without opening every module ? Because in a project with 30 forms / datamodules this process is taking a while :-(