Delphi-Quellcode:
Attrib := 0; //Initialisieren
Attrib := Attrib or
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);
shl (SHiftLeft) schiebt die bit nach links, also: (0001
shl 1) = 0010
dann noch alles oder verknüpt und fertig ist das Attribut
mfg mung