Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Schreibschutz setzen


Delete - Mi 28.12.05 20:17
Titel: Schreibschutz setzen
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 - Mi 28.12.05 20:27

Delphi-Quelltext 
1:
2:
 
 if (FileGetAttr(Userconfig) and faReadOnly) <= 0 then
   FileSetAttr(Userconfig, FileGetAttr(Userconfig) xor faReadOnly);


Delete - Mi 28.12.05 20:34
Danke :)


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!