Schreibschutz für Ordner setzen und aufheben

[DeddyH]

Geht es jetzt ganz simpel um das Schreibschutz-Attribut?

[simmi]

Mag für Dich ganz simpel sein, aber ich habe im Augenblick ein Brett vorm Kopf.

[DeddyH]

Nur schnell heruntergetippt, enthält noch Verbesserungspotential:

Delphi-Quellcode:

procedure SetFileReadOnlyFlag(Directory: string; const mask: string = '*.*';
  Recursive: Boolean = false);
const
  faNewAnyFileEx = $00017FFF;
var
  Rec: TSearchRec;
begin
  Directory := IncludeTrailingPathDelimiter(Directory);
  if FindFirst(Directory + mask, faNewAnyFileEx, Rec) = 0 then
    try
      repeat
        if (Rec.Name <> '.') and (Rec.Name <> '..') then
          begin
            if (Rec.Attr and faDirectory) = faDirectory then
              begin
                if Recursive then
                  SetFileReadOnlyFlag(Directory + Rec.Name, mask, Recursive);
              end
            else
              FileSetAttr(Directory + Rec.Name, Rec.Attr or faReadOnly);
          end;
      until FindNext(Rec) <> 0;
    finally
      SysUtils.FindClose(Rec);
    end;
end;

Allerdings lässt sich der Schreibschutz im Normalfall mit 2 Mausklicks wieder entfernen, eine wirklich sichere Sache ist das also nicht.

[Union]

Ich hab jetzt die logische Struktur bzgl. FTP nicht ganz verstanden. Wo liegt der FTP und wie wird auf das Virtuelle Verzeichnis zugegriffen?

[simmi]

Hallo DeddyH,

kenne "IncludeTrailingPathDelimiter" nicht, wo kommt das her?

Es geht auch nicht um einen absoluten Schutz, sondern nur darum, das die Kollegen nicht einfach das Symbol speichern klicken und damit die Vorlage zerstören. Arbeiten sollen Sie ja mit den Dokumenten. Funktionierte bisher auch ganz gut nur ich will weg von der BDE und suche darum eine andere Lösung...

[DeddyH]

Das steht in SysUtils und hängt ggf. das Ordner-Trennzeichen (also den Backslash unter Windows) an den übergebenen String an.

[himitsu]

Man hätte ja auch mal ie OH fragen können?
IncludeTrailingPathDelimiter (neu) oder IncludeTrailingBackslash (alt)

Achtung:

• Das Schreibschutzattribut von Verzeichnissen hat mit Schreibschutzt nichts zu tun.
• Das Schreibschutzattribut von Dateien ist ein "Kann"-Attribut welches vom (Datei)System nicht geprüft wird.
  Programme müssen/können es selber beachten, wenn sie auf eine Datei zugreifen ... sie müssen es aber nicht beachten und können dennoch schreiben.
• Der FTP-Server muß nicht auf diese Attribute achten, er könnte auch seine eigene Rechteverwaltung implementieren.
  Vorallem da diese Windows-Dateiatribute nichts mit den FTP-Zugriffattributen gemeinsam haben.