文件磁盘相关函数[13]-设置文件属性FileSetAttr

代码如下：

procedure TForm1.N25Click(Sender: TObject);
//设置文件属性FileSetAttr
var
  FileName: string;
  Attr: Integer;  //属性值是一个整数
begin
  FileName := 'F:\test\Test.txt';
  //设置为隐藏和只读文件:
  Attr := FILE_ATTRIBUTE_READONLY or FILE_ATTRIBUTE_HIDDEN;
  if FileSetAttr(FileName,Attr)=0 then  //返回0表示成功
    ShowMessage('设置成功!');
end;

 

下面是函数分析：

function FileSetAttr(const FileName: string; Attr: Integer): Integer;
begin
  Result := 0;
  if not SetFileAttributes(PChar(FileName), Attr) then
    Result := GetLastError;
end;
//可以看出，此函数是对API函数SetFileAttributes的封装而来，参数1是要操作文件的文件名，
//参数2是要设置成为新的属性的属性值
//如果成功则返回0，失败则返回错误代码