diff --git a/src/ce_staticexplorer.pas b/src/ce_staticexplorer.pas
index ac68b234..f2dfa342 100644
--- a/src/ce_staticexplorer.pas
+++ b/src/ce_staticexplorer.pas
@@ -451,6 +451,8 @@ begin
     fDmdProc.CurrentDirectory := extractFilePath(fProj.fileName);
     for i := 0 to fProj.Sources.Count-1 do begin
       itm := fProj.getAbsoluteSourceName(i);
+      if dExtList.IndexOf(ExtractFileExt(itm)) = -1 then
+        continue;
       if srcFname <> itm then fDmdProc.Parameters.Add(itm);
     end;
     for itm in fProj.currentConfiguration.pathsOptions.importModulePaths do
diff --git a/src/ce_symstring.pas b/src/ce_symstring.pas
index e9eb3353..bfb4f914 100644
--- a/src/ce_symstring.pas
+++ b/src/ce_symstring.pas
@@ -118,6 +118,7 @@ procedure TCESymbolExpander.updateSymbols;
 var
   hasProj: boolean;
   hasDoc: boolean;
+  fname: string;
   i: Integer;
 const
   na = '``';
@@ -166,7 +167,10 @@ begin
     fSymbols[CPFS] := '';
     for i := 0 to fProj.Sources.Count-1 do
     begin
-      fSymbols[CPFS] += fProj.getAbsoluteSourceName(i);
+      fname := fProj.getAbsoluteSourceName(i);
+      if dExtList.IndexOf(ExtractFileExt(fname)) = -1 then
+        continue;
+      fSymbols[CPFS] += fname;
       if fProj.Sources.Count > 1 then
         if i <> fProj.Sources.Count-1 then
           fSymbols[CPFS] += LineEnding;