@OregonGhost, ja, wie ich das Phänomen in den Griff kriege, ist aber nicht das eigentliche Problem. Ich wunderte mich nur, dass diese Bits dort überhaupt existieren und frage mich natürlich jetzt, was sie wohl bedeuten...
@Luckie
so gings nicht:
Delphi-Quellcode:
procedure loadADir(ADirAndMask : String);
var
sr: TSearchRec;
begin
if FindFirst(ADirAndMask, faAnyFile, sr) = 0 then
repeat
if (sr.Attr and (faReadOnly or faArchive)) = sr.Attr then AStrList.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
so gings dann:
Delphi-Quellcode:
...
if FindFirst(ADirAndMask, faAnyFile, sr) = 0 then
repeat
if (sr.Attr and (faReadOnly or faArchive or (1 shl 13))) = sr.Attr then AStrList.Add(sr.Name);
until FindNext(sr) <> 0;
...