关于文件的问题？

Question

var
  f : integer;
begin
  f := fileGetAttr('c:\x.sys');//获得文件属性；
  if f and faHidden = 0 then //是否有隐藏属性；
    fileSetAttr('C:\x.sys',faHidden);//设置隐藏；
end;
faReadOnly ：只读
faHidden ：隐藏
faSysFile ：系统
faVolumeID ：卷标
faDirectory ：目录
faArchive ：存档
faAnyfile ;所有类型

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
FileSetAttr('C:\YourFile.ext',faHidden);end;Other Files Attributes:
Andere Dateiattribute:
faReadOnly $00000001 Schreibgeschzte Datei
faHidden $00000002 Verborgene Datei
faSysFile $00000004 Systemdatei
faVolumeID $00000008 Laufwerks-ID
faDirectory $00000010 Verzeichnis
faArchive $00000020 Archivdatei
faAnyFile $0000003F Beliebige Datei
You can also set some attributes at once:
Es knen auch mehrere Attribute aufs Mal gesetzt werden:
FileSetAttr('C:\Autoexec.bat'
faReadOnly + faHidden);
To remove write protection on a file:
Den Schreibschutz einer Datei aufheben:
if (FileGetAttr(FileName) and faReadOnly) > 0
then FileSetAttr(FileName
FileGetAttr(FileName) xor faReadOnly);
Re-Set write protection:
Schreibschutz wieder setzen:
FileSetAttr(FileName
FileGetAttr(FileName) or faReadOnly);

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
FileSetAttr('C:\YourFile.ext',faHidden);end;Other Files Attributes:
Andere Dateiattribute:
faReadOnly $00000001 Schreibgeschzte Datei
faHidden $00000002 Verborgene Datei
faSysFile $00000004 Systemdatei
faVolumeID $00000008 Laufwerks-ID
faDirectory $00000010 Verzeichnis
faArchive $00000020 Archivdatei
faAnyFile $0000003F Beliebige Datei
You can also set some attributes at once:
Es knen auch mehrere Attribute aufs Mal gesetzt werden:
FileSetAttr('C:\Autoexec.bat'
faReadOnly + faHidden);
To remove write protection on a file:
Den Schreibschutz einer Datei aufheben:
if (FileGetAttr(FileName) and faReadOnly) > 0
then FileSetAttr(FileName
FileGetAttr(FileName) xor faReadOnly);
Re-Set write protection:
Schreibschutz wieder setzen:
FileSetAttr(FileName
FileGetAttr(FileName) or faReadOnly);