读取文件属性 FileGetAttr

procedure TForm1.N17Click(Sender: TObject);
//读取文件属性 FileGetAttr;
var
  FileName: string;
  Attr: Integer;  //属性值是一个整数
begin
  FileName := 'F:\test\Test.txt';
  Attr := FileGetAttr(FileName);
  ShowMessage(IntToStr(Attr));
  //属性可选值(有些用不着):
  //FILE_ATTRIBUTE_READONLY = 1; 只读
  //FILE_ATTRIBUTE_HIDDEN = 2; 隐藏
  //FILE_ATTRIBUTE_SYSTEM = 4; 系统
  //FILE_ATTRIBUTE_DIRECTORY = 16; 文件夹
  //FILE_ATTRIBUTE_ARCHIVE = 32; 存档
  //FILE_ATTRIBUTE_DEVICE = 64
  //FILE_ATTRIBUTE_NORMAL = 128; 一般
  //FILE_ATTRIBUTE_TEMPORARY = 256
  //FILE_ATTRIBUTE_SPARSE_FILE = 512
  //FILE_ATTRIBUTE_REPARSE_POINT = 1204
  //FILE_ATTRIBUTE_COMPRESSED = 2048; 压缩
  //FILE_ATTRIBUTE_OFFLINE = 4096
  //FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = 8192; 不被索引
  //FILE_ATTRIBUTE_ENCRYPTED = 16384
end;

 

下面进行函数分析：

function FileGetAttr(const FileName: string): Integer;
begin
  Result := GetFileAttributes(PChar(FileName));
end;
//可以看出此函数是由API函数GetFileAttributes封装而来，参数是要操作文件的文件名
//返回值是整型的属性值，如'32'表示为存档文件