Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:08:43
delphi 获取一个文件的属性

FileGetAttr 函数

FileGetAttr 函数用于获取一个文件的属性设置。函数原型如下：

function FileGetAttr(const FileName: string): Integer;

文件属性及其对应的数值：

·FaReadOnly $00000001 只读文件

·FaHidden $00000002 隐藏文件

·FaSysFile $00000004 系统文件

·FaVolumeID $00000008 卷标志文件

·FaDirectory $00000010 目录文件

·FaArchive $00000020 存档文件

·FaAnyFile $0000003F 所有类型文件

例如使用下面的代码获得文件属性的数值，然后可以根据获得的数值与表10-1 对比，得到文件属性。

var

I:Integer;

begin

if OpenDialog1.Execute then

I:=FileGetAttr(OpenDialog1.FileName);

ShowMessage(IntToStr(I));

end;

赞