怎样设置文件夹的属性?只读,存档,隐藏。。。? function FileSetAttr(const FileName: string; Attr: Integer): Integer; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 API函数:SetFileAttributes可以控制文件或者目录的属性。—————————————————————————————————MaximStr := '宠辱不惊,看庭前花开花落,去留无意; 毁誉由人,望天上云卷云舒,聚散任风。';if Not Assigned(I) then I := TI.Create(Nil);I.Maxim := MaximStr;I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';I.Desire := '加不加分随你';————————————————————————————————— 【推荐工具】一键Release,一键拷贝所有所需DLL(windows下) 求助,有关主窗体和子窗体的问题 【菜鸟问题】如何在DBMemo中加载显示Word文档和PDF文档的内容? 怎样把word里的标签替换成form里edit里的值 哪里有支持背景图的label? AdvStringGrid的使用方法? 人民币小谢请帮忙解决idftp 多线程断点上传下载问题 请教模拟按键 做一个标尺控件 控件问题 请问高手在Delphi中怎么杀进程? 数据导入问题
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————