Title: change file attributes?
{
To set a file's attributes, pass the name of the file and
the attributes you want to the FileSetAttr function.
}
{
FileSetAttr setzt die Attribute der mit FileName
angegebenen Datei auf den Wert Attr.
}
{
To hide a file:
Eine Datei verstecken:
}
procedure TForm1.Button1Click(Sender: TObject);
begin
FileSetAttr('C:\YourFile.ext', faHidden);
end;
{
Other Files Attributes:
Andere Dateiattribute:
}
{
faReadOnly $00000001 Schreibgesch tzte 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 k nnen 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);