好的,这是用 Delphi 语言读取文件夹内所有层级的文件路径的代码示例:
uses
Windows, SysUtils, Classes;
procedure GetAllFiles(const Path: string; const FileList: TStrings);
var
SearchRec: TSearchRec;
begin
if FindFirst(Path + '\*.*', faAnyFile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirect