delphi中怎样把文件夹呈现在mainmenu 中？

Question

delphi中怎样把文件夹呈现在mainmenu 中？（不要发呈现在treeview中的）
要求就是一次性遍历某个文件夹中的所有子文件夹（不能限制层数）和文件，然后显示在menu中 ，点击菜单中的文件能执行这个文件。
我能想到的就是用递归的方法，可是我写了半个月了，搞不定，还得请大家帮助，给我个具体代码，谢谢您了

Answer 1

递归是对的，具体代码可以参考一下：

Delphi 遍历文件夹及子文件夹 - 努力CODE - 博客园 procedure SearchFileEx(const ADir, AExt: string; AFiles: TStrings);var LSch: TSearchrec; LDir: strin https://www.cnblogs.com/ckcai/archive/2012/11/14/2769356.html