Zugriff auf schreibgeschützte Datei


Möchten Sie auf eine Datei schreibend zugreifen, die mit dem Attribut schreibgeschützt gekennzeichnet ist, erhalten Sie von Delphi die Meldung, dass die Datei nicht geöffnet werden kann. Das Problem können Sie lösen, indem Sie vorher prüfen, ob die Datei schreibgeschützt ist und ggf. den Schreibschutz aufheben:

if (FileGetAttr(Dateiname) and faReadOnly) > 0
  then FileSetAttr(Dateiname, FileGetAttr(Dateiname) xor faReadOnly);


Anschließend können Sie den Schreibschutz wieder aktivieren (siehe unten). Bei dieser Variante bleiben alle anderen bestehenden Attribute erhalten:

FileSetAttr(Dateiname, FileGetAttr(Dateiname) or faReadOnly);