判断是否有某个属性

function HasAttr(const FileName: string; Attr: Word): Boolean; begin
Result := (FileGetAttr(FileName) and Attr) = Attr;
end;