, følgende funktion vil forsøg på at fjerne de læser kun flag på en fil, du skal have den funktion i denne artikel (http://www.howtodothings.com/viewarticle.aspx?artikel = 755). funktion removereadonly (denne filnavn: string): boolean, begynder, (* antager succes *), resultat: = sandt; (* - filen er læst, kun før, vi ville ændre attributter *), hvis (isreadonly (filnavn), begynder, setfileattributes (pchar (filnavn), file_attribute_normal), resultat: = ikke isreadonly (filnavn);,,,,,,,,,,