Danke euch allen habe funktionierende und einfache antwort gefunden
Delphi-Quellcode:
uses
SysUtils;
begin
Memo.Lines.LoadFromFile(fileName);
if FileIsReadOnly(fileName)
then // tell user
else FileSetReadOnly(fileName, true);
end;
Robin W.
Ein Computer kann (fast) alles.... Man muss es ihm nur beibringen