如何实现取目录下的文件名及其子目录下文件名，迫切需要，请各位专家指点。(100分)

如何实现取目录下的文件名及其子目录下文件名，迫切需要，请各位专家指点。不知杀毒软件（检索各个目录下文件）是如何实现的？

用FindFirst, FindNext+递归

我很想帮你忙，但现在我还没找到答案

to LeeChange :
能否具体些，最好给出简单的例子，我对DELPHI不熟

很简单[]

procedure FileSearch(PathName:string);
var
F : TSearchRec;
Found : Boolean;
begin
ChDir(PathName);
Found := (FindFirst('*.*', faAnyFile, F) = 0);
while Found do
begin
if (F.Name = '.') or (F.Name = '..') then
begin
Found := (FindNext(F) = 0);
Continue;
end;

if (F.Attr and faDirectory)>0 then
begin
Application.ProcessMessages;
FileSearch(F.Name);
end;
//插入你的代码，F.Name就是文件名，GetCurrentDir可以得到当前目录
Found := (FindNext(F) = 0);
end;
FindClose(F);
ChDir('../');
end;

多人接受答案了。