• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphiFileSetAttr设置文件的属性-转

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

声明:function FileSetAttr ( const FileName : string; Attributes : Integer ) : Integer;

描述:FileSetAttr函数设置指定文件FileName的属性。

Attributes整数必须设为下列独立位的0个,多个或所有设置的联合。

faReadOnly:1:只读文件

faHidden:2:隐藏文件

faSysFile:4:系统文件

faVolumeID:8:卷标文件

faDirectory:16:目录文件

faArchive:32:存档文件

faSymLink:64:符号连接

如果设置功,则返回值为0,否则它包含一个错误代码。

备注:这个函数是依赖于操作系统的,比如在Linux下,Archive意味着什么也没有。

重要信息:在测试期间,作者通常会收到一个非零的返回代码,即使适当的位已经被成功设置。

{创建一个文本文件,设置为只读与系统,显示文件属性}
var
  fileName : string;
  myFile   : TextFile;
  attrs    : Integer;
begin
  // 尝试以写模式打开ATesstFile.tex
  fileName := 'ATestFile.txt';
  AssignFile(myFile, fileName);
  ReWrite(myFile);
  
  // 写入文件
  Write(myFile, 'Hello World');
  
  // 关闭文件
  CloseFile(myFile);
  
  // 设置文件为只读文件与系统文件
  if FileSetAttr(fileName, faReadOnly or faSysFile) > 0
  then ShowMessage('File made into a read only system file')
  else ShowMessage('File attribute change failed');
  
  // 取得文件属性
  attrs := FileGetAttr(fileName);
  
  // 显示文件属性
  if attrs and faReadOnly > 0
  then ShowMessage('File is read only')
  else ShowMessage('File is not read only');
  
  if attrs and faHidden > 0
  then ShowMessage('File is hidden')
  else ShowMessage('File is not hidden');
  
  if attrs and faSysFile > 0
  then ShowMessage('File is a system file')
  else ShowMessage('File is not a system file');
  
  if attrs and faVolumeID > 0
  then ShowMessage('File is a volume ID')
  else ShowMessage('File is not a volume ID');
  
  if attrs and faDirectory > 0
  then ShowMessage('File is a directory')
  else ShowMessage('File is not a directory');
  
  if attrs and faArchive > 0
  then ShowMessage('File is archived')
  else ShowMessage('File is not archived');
  
  if attrs and faSymLink > 0
  then ShowMessage('File is a symbolic link')
  else ShowMessage('File is not a symbolic link');
end;

程序运行结果:

File made into a read only system file

File is read only

File is not hidden

File is a system file

File is not a Volume ID

File is not a directory

File is not archived

File is not a symbolic link


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
遗传算法MATLAB实现(3):多元函数优化举例发布时间:2022-07-18
下一篇:
遗传算法——matlab代码解析发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap