Schreibschutz

[HomerGER]

ich weis nicht ob dir das besser hilft

als erstes alle ordner/dateien auslesen

und dann über eine schleife

attribute_w := FileGetAttr(file_path_s);

//Ist datei schreibgeschützt?
if ((attribute_w and faReadOnly) = 1) then begin
//Dann schreibschutz löschen
FileSetAttr(file_path_s, FileGetAttr(file_path_s) xor faReadOnly);
end;