如何取得一个目录下所有文件的名字？

Question

TOpenDialog打开一个文件夹，如何取得一个目录下所有文件的名字？  包括后缀

Answer 1

procedure FindFiles(APath: string; var strsFileNames: TStrings);
var
  FSearchRec: TSearchRec;
  FindResult: Integer;
begin
  strsFileNames.Clear;
  if APath[length(APath)] <> '\' then
    APath := APath + '\';
  FindResult := FindFirst(APath + FileNameExt, faAnyFile + faHidden +
    faSysFile + faReadOnly, FSearchRec);
  try
    while FindResult = 0 do
    begin
      strsFileNames.Add(LowerCase(APath + FSearchRec.Name));
      FindResult := FindNext(FSearchRec);
    end;
  finally
    FindClose(FSearchRec);
  end;
end;