Entfernen Sie ReadOnly-Flag aus Datei

Die folgende Funktion wird versuchen, entfernen Sie das lesen, nur Flagge auf eine Datei, benötigen Sie die Funktion in diesem Artikel (http://www.howtodothings.com/ViewArticle.aspx?Article=755).

Funktion RemoveReadOnly (const FileName: string): Boolean;
beginnen
(* Nehmen Erfolg *)
Result: = True;

(* Stellen Sie sicher, dass die Datei nur lesen, bevor
wir versuchen, und ändern Sie die Attribute *)
if (IsReadOnly (FileName)), dann
beginnen
SetFileAttributes (PChar (FileName), FILE_ATTRIBUTE_NORMAL);

Result: = nicht IsReadOnly (FileName);
end;
end;