Inno setup Inno安装程序遍历目录及其子目录

如何在Inno Setup Pascal脚本中遍历目录及其子目录？我在Inno安装帮助文档中找不到任何方法和接口

使用和支持功能

过程递归目录（路径：字符串）；
变量
FindRec:TFindRec；
FilePath:string；
开始
如果FindFirst（路径+'\*'，FindRec），则
开始
尝试
重复
如果（FindRec.Name'.'和（FindRec.Name'.'），则
开始
FilePath:=Path+'\'+FindRec.Name；
如果FindRec.Attributes和FILE_ATTRIBUTE_DIRECTORY=0，则
开始
日志（格式（'File%s'，[FilePath]）；
结束
其他的
开始
日志（格式（'Directory%s'，[FilePath]）；
递归目录（文件路径）；
结束；
结束；
直到没有FindNext（FindRec）；
最后
FindClose（FindRec）；
结束；
结束
其他的
开始
日志（格式（'未能列出%s'，[Path]）；
结束；
结束；

---

有关使用示例，请参见：