DateiAtribute lesen

[sakura]

Einfach so ändern:

Delphi-Quellcode:

    if datei.Attr and faHidden <> 0 then
    begin
      m := m + 'Versteckt' + ' ';
      datei.Attr := datei.Attr - faHidden;
    end;

    if datei.Attr and faArchive <> 0 then
    begin
      m := m +'Archiv' + ' ';
      datei.Attr := datei.Attr - faArchive;
    end;

......