Remover ReadOnly bandeira de arquivo

A seguinte função tentará remover o sinalizador só de ler um arquivo, você terá a função neste artigo (http://www.howtodothings.com/ViewArticle.aspx?Article=755).

função RemoveReadOnly (const FileName: string): Boolean;
começo
(* Assumir Sucesso *)
Resultado: = True;

(* Verifique se o arquivo é somente leitura antes
e vamos tentar mudar os atributos *)
if (IsReadOnly (FileName)) então
começo
SetFileAttributes (PChar (FileName), FILE_ATTRIBUTE_NORMAL);

Resultado: não IsReadOnly = (FileName);
final;
final;