FileAttributes

[sanguinarus]

ich habe es!!
lösche erst alle Attribute und schreibe sie dann neu!

Delphi-Quellcode:

   datname := Openfiledialog1.FileName;
    fi := fileinfo.Create(datname);
    &file.SetAttributes (datname, System.IO.FileAttributes.Normal);
    if checkbox1.Checked then
      begin
        fi.Attributes := fi.Attributes or System.IO.FileAttributes.ReadOnly;
      end;
    if checkbox3.Checked then
      begin
        fi.Attributes := fi.Attributes or System.IO.FileAttributes.System;
      end;
    if checkbox2.Checked then
       begin
        fi.Attributes := fi.Attributes or System.IO.FileAttributes.Hidden;
       end;
    if checkbox4.Checked then
       begin
        fi.Attributes := fi.Attributes or System.IO.FileAttributes.Archive;
       end;

das nur weiss ich leider immer noch nicht wie ich die
setcreationtime funktion benutze