如何得到某个文件夹下，所有文件的文件名称，请指教！

Question

如何得到某个文件夹下，所有文件的文件名称。
就象杀毒程序，每个文件都进行过滤。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var ss:Tsearchrec;
filepath:string;
begin
   filepath:='c:\';
   listbox1.Items.Clear;
   if findfirst(filepath+'*.*',faAnyFile,ss)=0 then
   begin
   if not ((ss.Attr and fadirectory)=fadirectory) then
   listbox1.Items.Add(ss.Name);
   while findnext(ss)=0 do
   begin
   if not ((ss.attr and fadirectory)=fadirectory) then
   listbox1.Items.Add(ss.Name);
   end;
   findclose(ss);
   end;
end;