TDirectory.GetAttributes、TDirectory.SetAttributes获取和设置文件夹属性

使用函数：

　　System.IOUtils.TDirectory.GetAttributes//获取属性
　　System.IOUtils.TDirectory.SetAttributes//设置属性

注：次例未添加异常处理。

补充一句代码：

CheckListBox1.CheckAll(vcl.StdCtrls.TCheckBoxState(0), False, False);//ListCheckBox取消所有选中

示例：

代码：

unit Unit1;

interface

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
    System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.TypInfo, Vcl.StdCtrls,
    Vcl.CheckLst, Vcl.FileCtrl, System.IOUtils;

type
    TForm1 = class(TForm)
        Button_ChooseFolder: TButton;
        Button_GetAttrs: TButton;
        Button_SetAttrs: TButton;
        CheckListBox1: TCheckListBox;
        Label1: TLabel;
        Edit_Path: TEdit;
        procedure Button_ChooseFolderClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure Button_GetAttrsClick(Sender: TObject);
    procedure Button_SetAttrsClick(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

var
    sDir: string;

procedure TForm1.Button_ChooseFolderClick(Sender: TObject);
begin
    if not SelectDirectory('请选择一个文件夹', 'H:', sDir) then
        Exit;
    Edit_Path.Text := sDir;
    Button_SetAttrs.Enabled := True;
    Button_GetAttrs.Enabled := True;
end;

procedure TForm1.Button_GetAttrsClick(Sender: TObject);
var
    FileAttrs: TFileAttributes;
    FileAttr: TFileAttribute;
    I: Integer;
    str: string;
begin
    FileAttrs := TDirectory.GetAttributes(sDir);
    for FileAttr := Low(TFileAttribute) to High(TFileAttribute) do
    begin
        if FileAttr in FileAttrs then
            str := GetEnumName
                  (TypeInfo(TFileAttribute), Ord(FileAttr));
            for I := 0 to CheckListBox1.Count - 1 do
            begin
                if CheckListBox1.Items[I] = str then
                  CheckListBox1.Checked[I] := True;
            end;

    end;

end;

procedure TForm1.Button_SetAttrsClick(Sender: TObject);
var
    FileAttrs: TFileAttributes;
    FileAttr: TFileAttribute;
    I: Integer;
begin
    //设置属性
    FileAttrs := [];
    for I := 0 to CheckListBox1.Count - 1 do
    begin
        if CheckListBox1.Checked[I] then
             FileAttrs := FileAttrs + [TFileAttribute(I)];
    end;
    TDirectory.SetAttributes(Edit_Path.Text, FileAttrs);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    Button_SetAttrs.Enabled := False;
    Button_GetAttrs.Enabled := False;
    Edit_Path.ReadOnly := True;
end;

end.