Schreibgeschützte Datei

[Luckie]

Delphi-Quellcode:

FileSetAttr( 'C:\Eigene Dateien\test.txt', faHidden + faArchive );
// Beispiel - Attribute von 'C:\Eigene Dateien\' auslesen anhand FileGetAttr
var
attrs : Integer;
.....
attrs := FileGetAttr( 'C:\Eigene Dateien\' );
If attrs and faReadOnly > 0 then
showMessage( 'Schreibgeschützt' );
If attrs and faHidden > 0 then
showMessage( 'Verstecktt' );
If attrs and faSysFile > 0 then
showMessage( 'Systemdatei' );
If attrs and faVolumeID > 0 then
showMessage( 'Laufwerks-ID' );
If attrs and faDirectory > 0 then
showMessage( 'Verzeichnis' );
If attrs and faArchive > 0 then
showMessage( 'Archivdatei' );
If attrs and faAnyFile > 0 then
showMessage( 'Irgendeine Datei' );