急求文件属性管理,急.......

Question

求救怎么取文件属性和怎么更改,比如创建日期这些!

Answer 1

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 任意文件
有些常量不全，自已去查查msdn