Delphi遍历文件夹

/// <remarks>
/// 遍历文件夹 （引用SysUtils单元）
/// </remarks>
procedure TfrmMusicMenu.SearchInDir(sDirectory: string);
var
  pSearchRec: TSearchRec; // TSearchRec是delphi为我们定义好的一个记录类型。
　　　　　　　　　　　　　    // 用于记录文件的各个参数，比如大小，属性，文件名等等；
   sPath, sFile: string;
begin
  try
    // 检查目录名后面是否有'\'
    if Copy(sDirectory, Length(sDirectory), ) <> '\' then
      sPath := sDirectory + '\'
    else
      sPath := sDirectory;

    {FindFirst 是用来寻找目标目录下的第一个文件，当成功找到文件时,返回0
    FindFirst的三个参数：1.路径与文件后缀(C:\*.*) 
　　　　　　　　　　　　 　2.文件类型；
　　　　　　　　　　　　 　3.TSearchRec类型变量（用于储存文件的参数）}
    if FindFirst(sPath + '*.*', faAnyFile, pSearchRec) =  then
    begin
      repeat
        sFile := Trim(pSearchRec.Name);

        // 排除自身文件夹，与父文件夹
        if sFile = '.' then Continue;
        if sFile = '..' then Continue;

        sFile := sPath + pSearchRec.Name;

        // 文件夹的情况（递归）
        if(pSearchRec.Attr and faDirectory) <>  then
          SearchInDir(sFile)
        else

        // 文件的情况
        if(pSearchRec.Attr and faAnyFile) = pSearchRec.Attr then
        begin
          if Pos('.MP3', UpperCase(sFile)) <  then Continue;

          if FSelFileList = '' then
            FSelFileList := sFile
          else
            FSelFileList := FSelFileList + ',' + sFile;
        end; 

        {FindNext 寻找下一个
         TSearchRec(sr) 是一个文件信息的纪录，
         当FindFirst返回SearchRec时，你可以通过SearchRec.Name获取文件名，
         以及 SearchRec.Size获取文件大小等信息}
      until FindNext(pSearchRec) <> ;

      {FindClose 释放由FindFirst分配的内存。FindClose停止一个FindFirst/FindNext序列。
       FindClose 在16位的操作系统中没有用处，但在32位系统中是需要的，
       所以为了最大的FindFirst/FindNext序列完成的可能性应该调用FindClose结束。}
      FindClose(pSearchRec);
      if FSelFileList = '' then
        InfoDlg('NND！这个文件夹有你妹的 Music 啊...');
    end;
  except
    InfoDlg('NND！找个Music都TMD异常...');
  end;
end;