delphi findfirst 如何判断文件的隐藏属性

Question

if  FindFirst(SourPath + SourFile,faAnyfile,subFileRec) = 0 then
repeat
   if ((subFileRec.Attr and faDirectory) = 0) then 
   begin
        if  ((subFileRec.Attr And faHidden) = faHidden)  then
        begin
              memo1.lines.add(Sourpath + subFileRec.Name); 
        end;
   end;
end;
until FindNext(subFileRec) <> 0;
FindClose(subFileRec);为什么我找出来的不是隐藏的文件，而是全部的文件都显示？

Answer 1

if (subFileRec.Attr And faHidden) = faHidden then就是这樣判断隐藏文件的，看一下文件，属性是不是隐藏的？