Delphi-Quellcode:
AssignFile(Speicher,Dateiname);
if FileExists(Dateiname) then
Begin
{Wenn Schreibgeschützt --> dann Fragen und öffnen}
if UDateiEigenschaften.Schreibschutz then
Begin
System.FileMode := fmOpenRead;
Reset(Speicher);
end
else
Reset(Speicher);
end else
Rewrite(Speicher);
end;
Habe es jetzt so gemacht das Wenn eine Datei Schreibgeschützt ist erstmal in der UnitDateiEigenschaften die Funktion
Schreibschutz aufgerufen wird und gefragt wir ob der Schreibschutz entfernt werden soll!
Die Funktion liefert true wenn am ende der Funktion noch ein Schreibschutz besteht und somit öffne ich die Datei im ReadOnly Modus!
Ist die umsetzung so richtig??
Ich denke man muss jetzt nur noch irgendwann den FileMode wieder auf den
Standart setzen oder??