怎么设置文件的属性。

Question

现在有个文件为只读，怎么写让他不为只读。

Answer 1

有一个改文件属性的函数。FileSetAttr 

Answer 2

FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean;

Answer 3

function FileSetAttr(const FileName: string; Attr: Integer): Integer;
Attr为faReadOnly，faArchive，faSysFile，faHidden四种属性
要去掉用只读用如下两句：
Var Attributes : Word;
Attributes := FileGetAttr(FileDirName.Caption);
FileSetAttr(FileName, Attributes andnot faReadOnly): 

Answer 4

SetFileAttributes('1.exe',1);
后面跟什么可以去掉只读。

Answer 5

N多例子，Google随时有的http://lysoft.7u7.net