Moin!
@mung: warum vorher noch 0 setzen?
Delphi-Quellcode:
Attrib :=
byte(cbProtectedFile.Checked) or
(byte(cbHiddenFile.Checked) shl 1) or
(byte(cbSystemFile.Checked) shl 2) or
(byte(cbArchiv.Checked ) shl 5) ; //Bits an die richtige stelle schieben
FileSetAttr(FDoc.FFilename, Attrib);
MfG
Muetze1