用DELPHI设置文件的属性

来源：互联网发布：联想指纹识别软件win7 编辑：程序博客网时间：2024/05/29 09:41

用DELPHI设置文件的属性
1. 在interface下的uses中引用filectrl单元

2. 首先取文件属性

    var
      attr : integer;
      filename : string;
    begin
      filename := 'myfile';
      attr     := FileGetAttr(filename);
    end;

3. 设置文件属性(如设置归档属性 -> faArchive )

    attr := attr or faArchive;
    //如要去掉某一属性，则如下句
    attr := attr and (not faArchive);
    //保留其它属性
    if FileSetAttr(filename, attr)=0 then
       //成功代码
    else
       //失败代码

4. 附文件属性常量
    Constant Value Description
    faReadOnly $00000001 Read-only files 只读文件
    faHidden $00000002 Hidden files 隐藏文件
    faSysFile $00000004 System files 系统文件
    faVolumeID $00000008 Volume ID files 卷标文件
    faDirectory $00000010 Directory files 目录
    faArchive $00000020 Archive files 归档文件
    faAnyFile $0000003F Any file 任意文件