delphi FileSetAttr 设置文件的属性-转

声明：function FileSetAttr ( const FileName : string; Attributes : Integer ) : Integer;

描述：FileSetAttr函数设置指定文件FileName的属性。

Attributes整数必须设为下列独立位的0个，多个或所有设置的联合。

faReadOnly：1：只读文件

faHidden：2：隐藏文件

faSysFile：4：系统文件

faVolumeID：8：卷标文件

faDirectory：16：目录文件

faArchive：32：存档文件

faSymLink：64：符号连接

如果设置功，则返回值为0，否则它包含一个错误代码。

备注：这个函数是依赖于操作系统的，比如在Linux下，Archive意味着什么也没有。

重要信息：在测试期间，作者通常会收到一个非零的返回代码，即使适当的位已经被成功设置。

{创建一个文本文件，设置为只读与系统，显示文件属性}
var
  fileName : string;
  myFile   : TextFile;
  attrs    : Integer;
begin
  // 尝试以写模式打开ATesstFile.tex
  fileName := 'ATestFile.txt';
  AssignFile(myFile, fileName);
  ReWrite(myFile);
  
  // 写入文件
  Write(myFile, 'Hello World');
  
  // 关闭文件
  CloseFile(myFile);
  
  // 设置文件为只读文件与系统文件
  if FileSetAttr(fileName, faReadOnly or faSysFile) > 0
  then ShowMessage('File made into a read only system file')
  else ShowMessage('File attribute change failed');
  
  // 取得文件属性
  attrs := FileGetAttr(fileName);
  
  // 显示文件属性
  if attrs and faReadOnly > 0
  then ShowMessage('File is read only')
  else ShowMessage('File is not read only');
  
  if attrs and faHidden > 0
  then ShowMessage('File is hidden')
  else ShowMessage('File is not hidden');
  
  if attrs and faSysFile > 0
  then ShowMessage('File is a system file')
  else ShowMessage('File is not a system file');
  
  if attrs and faVolumeID > 0
  then ShowMessage('File is a volume ID')
  else ShowMessage('File is not a volume ID');
  
  if attrs and faDirectory > 0
  then ShowMessage('File is a directory')
  else ShowMessage('File is not a directory');
  
  if attrs and faArchive > 0
  then ShowMessage('File is archived')
  else ShowMessage('File is not archived');
  
  if attrs and faSymLink > 0
  then ShowMessage('File is a symbolic link')
  else ShowMessage('File is not a symbolic link');
end;

程序运行结果：

File made into a read only system file

File is read only

File is not hidden

File is a system file

File is not a Volume ID

File is not a directory

File is not archived

File is not a symbolic link