Følgende funksjon vil prøve å fjerne den read only flagget på en fil, du trenger funksjonen i denne artikkelen (http://www.howtodothings.com/ViewArticle.aspx?Article=755).
funksjon RemoveReadOnly (konst Filename: string): Boolean; begynne (* Anta Suksess *) Resultat: = True; plakater (* Kontroller at filen er skrivebeskyttet før vi prøve og endre attributtene *) if (IsReadOnly (Filename)), og start SetFileAttributes (PChar (filnavn), FILE_ATTRIBUTE_NORMAL );
Resultat: = ikke IsReadOnly (Filename); slutt; end;