Ich habe mich jetzt nur mal schnell durch die Methoden geklickt. Ich finde da sowas wie
TFile.IntegerToFileAttributes und
SetFileAttributes. SetFileAttributes erwartet als zweiten Parameter auch einen Integer. Daher sollte die Methode funktionieren. Alternativ mit
TDirectory.SetAttributes(TFile.IntegerToFileAttributes(SearchRec.Attr))
arbeiten.
Müsste eigentlich funktionieren.
EDIT: Ähhhhmm der rote Kasten war diesmal wirklich nicht da.
