如何得到一文件夹中的所有文件名（包括其子文件夹中的文件）？(100分)

如题，谢谢！

可以用递归.

能不能详细点啊,有代码最好，谢谢了！

procedure SearchAllFile(DirName: String; Files: TStrings);
var
fpath: String;
sr: TsearchRec;
begin
fpath:=DirName+'/*.*';
if FindFirst(fpath,faAnyFile, sr)=0 then
repeat
if (sr.Name <> '.')and(sr.Name <> '..') then
begin
if (sr.Attr and faDirectory)=faDirectory then
SearchAllFile(DirName+'/'+sr.Name, Files)
else Files.Add(DirName+'/'+sr.Name);
end;
until FindNext(sr) <> 0;

FindClose(sr);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SearchAllFile('C:/demo', Memo1.Lines);
end;

好使，谢谢luzhouman！

有谁知道怎么检测应用程序有没有响应啊,知道的高手请指点一下我.QQ38829979

to shamohu
好使就记得结贴哦