Supprimer ReadOnly pavillon à partir du fichier

La fonction suivante va tenter de supprimer la lecture seule sur un fichier, vous aurez besoin de la fonction dans cet article (http://www.howtodothings.com/ViewArticle.aspx?Article=755).

fonction RemoveReadOnly (const FileName: string): Boolean;
commencer
(* Supposons Succès *)
Résultat: = True;

(* Assurez-vous que le fichier est en lecture seule, avant
nous essayons de changer les attributs *)
if (IsReadOnly (FileName)) then
commencer
SetFileAttributes (PChar (FileName), FILE_ATTRIBUTE_NORMAL);

Résultat: = pas IsReadOnly (FileName);
fin;
fin;