小问题：怎样得到一个目录下的所有文件名？

Question

小弟刚学DELPHI不久，还没用熟。
    上面问题的内容是，指定一个目录，然后将这个目录扫描一遍，得到这个目录下每个文件的文件名，大小，最后修改时间，属性，（包含子目录）。
    以上的问题不知道表达明白了没有，希望各位高手指教，小弟在此谢过先^o^!

Answer 1

FindFirst
FindNext
FindClose

Answer 2

var
  ADir: string;
  sr: TSearchRec;
  AFileCount: Integer;
begin
  ADir := 'D:\';
  AFileCount := 0;
  if FindFirst(ADir + '*.*', 0, sr) = 0 then
  begin
    repeat
    begin
      ListBox1.Items.Add(ADir + sr.Name);
      Inc(AFileCount);
    end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

Answer 3

function TJ5000.DelFlashFN: boolean;
var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  result := false;
  FileAttrs := faArchive; //faAnyFile;  if FindFirst('.\Dsk\*.*', FileAttrs, sr) = 0 then //修改本行, 設置你要自理的目錄!!
  begin
    repeat
      DeleteFile('.\Dsk\' + sr.Name); //修改本行, 處理你找到文件就做什麼!!
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  result := true;
end;