如何在Delphi中更改文件夹属性－隐藏、只读、系统

[lax]

搜索了半天，Delphi里没有讲这个的。

其实可以调用Scripting.FileSystemObject
如下：
var
fso,f : Variant;
begin
fso := CreateOleObject('Scripting.FileSystemObject');
f := fso.GetFolder('C:\ABC');
f.Attributes := 2; // 2 为隐藏, 1 为只读
f.Attributes := f.Attributes + 4; // 4 为系统
// 可以直接赋 6
f := Unassigned;
fso := Unassigned;
end;

另外需要引用 ComObj