Vista setzt als Datei-Attribut ein Bit13 ???

[r29d43]

Hi,

eines meiner WinXP-Programme sucht mittels der FindFirst/FindNext-Funktionen Dateien, welche im SearchRecord-Attribut nur die Bits für faReadOnly und faArchive gesetzt haben dürfen. Bei einem Programm-Transfer auf Vista klappte das Prog jetzt allerdings nicht mehr. Auf der Suche nach der Ursache entdeckte ich dann bei allen Dateien dieses betroffenen Ordners (C:\ProgramData\XY) dieses ominöse Bit13 im SearchRecord-Attribut, ...welches man übrigens auch häufig sonstnoch überall in C:\ProgramData\... antreffen kann.


Kennt das event. jemand? Was für eine Information beinhaltet es?


Thx im Voraus

MfG,
...


PS. Ein Bit7 als Datei-Attribut (?) ist mir da übrigens eben auch gerade noch begegnet (in C:\Programme\Canon\...).
...und eben auch noch ein Bit10 in (nur) C:

Scheint so, dass diese höheren Bits in Vista insgesamt irgendwie genutzt werden?

[OregonGhost]

Ich kenne die zwar nicht, aber kannst du nicht einfach sämtliche bekannten Bits ausmaskieren und dann erst deinen Vergleich durchführen? Dann bist du auch für die Zukunft gewappnet, egal welche Bedeutung dann weitere Bits bekommen.

[Luckie]

Zeig mal deine Funktion.

[r29d43]

@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;
...

[taaktaak]

Moin, Moin,

du verwendest..

Delphi-Quellcode:

if (sr.Attr and (faReadOnly or faArchive)) = sr.Attr then ...

muss der Vergleich nicht mit

Delphi-Quellcode:

if (sr.Attr and (faReadOnly or faArchive)) = (faReadOnly or faArchive) then ...

durchgeführt werden?!

[Namenloser]

Zitat:

Zitat von taaktaak

Moin, Moin,

du verwendest..

Delphi-Quellcode:

if (sr.Attr and (faReadOnly or faArchive)) = sr.Attr then ...

muss der Vergleich nicht mit

Delphi-Quellcode:

if (sr.Attr and (faReadOnly or faArchive)) = (faReadOnly or faArchive) then ...

durchgeführt werden?!

Bin das ganze mal kurz im Kopf durchgegangen, scheint beides zu funktionieren. (und gleich kommt einer und beweist mir, dass es nicht so ist, ich weiß es :mrgreen:)

[taaktaak]

Ähh, was ist jetzt deine Botschaft? Scheinbar oder anscheinend :cyclops:

[DeddyH]

Nee, das stimmt schon so, es wird ja auf Gleichheit abgefragt.

Delphi-Quellcode:

if (Wert1 and Wert2) = Wert1... //trifft nur zu, wenn beide gleich
if (Wert1 and Wert2) = Wert2... //trifft auch nur zu, wenn beide gleich

[Namenloser]

Botschaft ist, dass es anscheinend nicht mit

Delphi-Quellcode:

if (sr.Attr and (faReadOnly or faArchive)) = (faReadOnly or faArchive)

durchgeführt werden muss, enthält aber gleichzeitig nen Disclaimer, weil ich diese Nacht nicht geschalfen hab :mrgreen:

[taaktaak]

jooo, überzeugt :oops: