SetFileAttributes bzw. FileSetAttr setzen Attribute nicht r.

[Die Muhkuh]

Zitat von Christian Seehase:

Moin Spider,

der Wert muss mit 0 initialisiert werden.
Addieren geht dann, wie Mütze ja schon sagte mit or, abziehen mit and not.

Hi,

das mit 0 hab ich auch grad gefunden.


Addieren geht aber auch so, oder?

Delphi-Quellcode:

Attrib := 0;
      if cbProtectedFile.Checked then
        Attrib := Attrib + faReadOnly;

      if cbArchiv.Checked then
        Attrib := Attrib + faArchive;

      if cbHiddenFile.Checked then
        Attrib := Attrib + faHidden;

      if cbSystemFile.Checked then
        Attrib := Attrib + faSysFile;

      FileSetAttr(FDoc.FFilename, Attrib);

Ansonsten so?

Delphi-Quellcode:

Attrib := 0;
      if cbProtectedFile.Checked then
        Attrib := Attrib or faReadOnly;

      if cbArchiv.Checked then
        Attrib := Attrib or faArchive;

      if cbHiddenFile.Checked then
        Attrib := Attrib or faHidden;

      if cbSystemFile.Checked then
        Attrib := Attrib or faSysFile;

      FileSetAttr(FDoc.FFilename, Attrib);

[edit=Christian Seehase]Delphi-Tag geschlossen. Mfg, Christian Seehase[/edit]