Inno setup Inno安装程序：列出目录中的所有文件名

我试图列出目录中所有文件的名称，但无法这样做。有没有办法列出目录中所有文件的名称

---

提前感谢。

以下脚本显示了如何将指定目录中的所有文件列出到

TStrings

集合中（在本例中，在自定义页面的列表框中列出）：

[代码]
过程列表文件（const目录：string；文件：TStrings）；
变量
FindRec:TFindRec；
开始
文件。清除；
如果FindFirst（ExpandConstant（Directory+'*'），FindRec），则
尝试
重复
如果FindRec.Attributes和FILE_ATTRIBUTE_DIRECTORY=0，则
Files.Add（FindRec.Name）；
直到
非FindNext（FindRec）；
最后
FindClose（FindRec）；
结束；
结束；
程序初始化；
变量
自定义页面：TWizardPage；
FileListBox:TNewListBox；
开始
CustomPage:=CreateCustomPage（wpWelcome，'Caption'，'Description'）；
FileListBox:=TNewListBox.Create（WizardForm）；
FileListBox.Parent:=CustomPage.Surface；
Align:=alClient；
ListFiles（'C:\SomeDirectory\'，FileListBox.Items）；
结束；

如果我想列出所有目录和文件，该怎么办？这怎么可能呢？@yuval，如果FindRec.Attributes和FILE_ATTRIBUTE_DIRECTORY=0，那么语句

只过滤文件。如果
FindRec.Attributes
还包含
FILE\u ATTRIBUTE\u DIRECTORY
标志，则它是一个目录。请使用相同的脚本尝试，并在列表框中获取最后一个文件夹名称。有什么想法吗？我需要文件夹中的所有文件吗？