Schreibschutz setzen

Ehemaliges Mitglied Erhaltene Danke: 1

Hallo, habe gerade hier ein wenig gesucht und weiß nun, dass man mit folgendem Code den Schreibschutz entfernen kann:

Delphi-Quelltext

1:
2:

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

Aber ich frage mich wie man den Schreibschutz am besten wieder drauf machen kann, aber NUR wenn er auch vorher entfernt wurde ..

also praktisch:

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

Userconfig bearbeiten, blubb, blubb ...

if Schreibschutz wurde entfernt, then setze Schreibschutz.

Danke für eure Hilfe im Voraus !

root_at_localhost · Beiträge: 191

markieren

Delphi-Quelltext

1:
2:

 if (FileGetAttr(Userconfig) and faReadOnly) <= 0 then
   FileSetAttr(Userconfig, FileGetAttr(Userconfig) xor faReadOnly);

Ehemaliges Mitglied Erhaltene Danke: 1

Danke

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme