delphi 获取目录下所有文件名（学习笔记）

 目的：程序需要播放背景音乐，要读取某个文件夹里的所有文件名

实现代码：

procedure Form1.Button1Click(Sender: TObject);
var
 SearchRec:TSearchRec;  //下面有详解
 found:integer;
begin
found:=FindFirst(ExtractFilePath(ParamStr(0))+'背景音乐\*.*',faAnyFile,SearchRec);
               //ExtractFilePath(ParamStr(0))程序当前所在目录
 while found=0 do           
  begin
  if (SearchRec.Name<>'.')  and (SearchRec.Name<>'..')
      and    (SearchRec.Attr<>faDirectory)    then  //好像是判断文件夹
    ListBox1.Items.Add(SearchRec.Name);
    found:=FindNext(SearchRec);    
   end;
FindClose(SearchRec);
end;