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