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

lax lax 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
搜索了半天,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
...全文

相关推荐

评论
收藏 已收藏
分享
返回顶部
lax
Delphi 5,944 成员 262,941 内容