Código Delphi [-]function FileSetAttr(const FileName: string; Attr: Integer): Integer;
function FileSetAttr(const FileName: string; Attr: Integer): Integer;