Hallo Steffen,
setze doch die Datei nach dem Einlesen und bis zum Zurückschreiben einfach auf ReadOnly:
Delphi-Quellcode:
uses
SysUtils;
begin
Memo.Lines.LoadFromFile(fileName);
if FileIsReadOnly(fileName)
then // tell user
else FileSetReadOnly(fileName, true);
end;
Grüße vom marabu