你可以使用 Delphi 的 FindFirst 和 FindNext 函数来扫描文件夹内的文件。首先,你需要使用 TSearchRec 结构体来存储文件信息。然后,你可以使用 FindFirst 函数来查找文件夹内的第一个文件,并使用 FindNext 函数来查找剩余的文件。下面是一个示例代码:
uses Windows, SysUtils;
procedure ReadFilePaths(const Folder: string);
var
SearchRec: TSearchRec;
FileAttrs: Integer;
begin
// 设置文件属性,扫描文件夹内的所有文件(包括隐藏文件和系统文件)
FileAttrs := faAnyFile;
// 使用 FindFirst 函数查找文件夹内的第一个文件
if FindFirst(Folder +