判断是否有某个属性

function HasAttr(const FileName: string; Attr: Word): Boolean;

begin

 Result := (FileGetAttr(FileName) and Attr) = Attr;

end;