Schreibschutz für Ordner setzen und aufheben

[simmi]

Danke Luckie für diese äußerst hilfreiche Antwort

Es sind die gesamten Dokumentvorlagen des Unternehmens gepflegt nach DIN 9..., Es werden für verschiedene Projekte auch verschiedene Dokumentengruppen genutzt. Da läuft nach wie vor die BDE und die möchte ich weg bekommen. Meine Idee ist die, Ich habe eine MySQL Tabelle die Dokumentversionen, Zuordnungen und Dateinamen enthält, gleiche diese Daten mit dem lokalen Gerät bei bestehender Netzwerkverbindung ab und aktualisiere sie. Da die Rechner (Laptops) sich auch außerhalb unseres Intranets in dem der FTP Server läuft bewegen bracuhe ich einen lokalen Ordner.

Ich könnte jede Datei anfassen und den Schreibschutz setzen, aber ich würde mir gern diese Arbeit sparen und einfach einen Schreibschutz auf den gesamten Ordner setzen und natürlich wieder aufheben. Die vorhandenen Forumsbeiträge haben mir an dieser Stelle nicht wirklich helfen können.

[hsg]

Da du XP und Win7 als BS hast, vermute ich mal, dass du NTFS als Dateisystem nutzt. Da kannst du doch allen Benutzern die Schreibrechte entziehen, nur ein spezieller Benutzer bekommt dann das Schreibrecht. Dein Programm muss dann nur als dieser Benutzer arbeiten und darf damit als einziges die Dateien bearbeiten.

[simmi]

Zitat:

Dein Programm muss dann nur als dieser Benutzer arbeiten und darf damit als einziges die Dateien bearbeiten.

Das habe ich bereits versucht und wollte einem Programm Adminrechte geben, Windows 7 hat mir nur den dicken Daumen gezeigt. Zum anderen möchte mein Admin nicht, das da an den Nutzerrechten gestellt wird und er steht nun mal in der Nahrungskette über mir...

[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?

[p80286]

Zitat von simmi:

Zitat:

Dein Programm muss dann nur als dieser Benutzer arbeiten und darf damit als einziges die Dateien bearbeiten.

Das habe ich bereits versucht und wollte einem Programm Adminrechte geben, Windows 7 hat mir nur den dicken Daumen gezeigt. Zum anderen möchte mein Admin nicht, das da an den Nutzerrechten gestellt wird und er steht nun mal in der Nahrungskette über mir...

Ich glaube da hast Du etwas mißverstanden. Unter NTFS kannst du einem Benutzer und/oder einer Benutzergruppe "Dateiberechtigungen" geben und/oder entziehen. Das hat nichts mit Adminrechten zu tun.
Schau mal unter "Eigenschaften -> Sicherheit" des Verzeichnisses nach was da eingestellt ist.
Neben den üblichen Verdächtigen würde ich Leserechte für "Jeder" vergeben und Änderungsrechte für den/die Admin(s)/Datenpfleger.
Vererbung nicht vergessen, fertig ist die Laube

Gruß
K-H

[jfheins]

Zitat von simmi:

Es sind die gesamten Dokumentvorlagen des Unternehmens gepflegt nach DIN 9..., Es werden für verschiedene Projekte auch verschiedene Dokumentengruppen genutzt. Da läuft nach wie vor die BDE und die möchte ich weg bekommen. Meine Idee ist die, Ich habe eine MySQL Tabelle die Dokumentversionen, Zuordnungen und Dateinamen enthält, gleiche diese Daten mit dem lokalen Gerät bei bestehender Netzwerkverbindung ab und aktualisiere sie. Da die Rechner (Laptops) sich auch außerhalb unseres Intranets in dem der FTP Server läuft bewegen bracuhe ich einen lokalen Ordner.

Das klingt ziemlich nach dem Einsatzgebiet eines SVN Servers. Der SVN Server ist dazu designet, dass es auf keinen Fall zum Datenverlust kommt. (Hardwarefehler ausgenommen) und ermöglicht eine synchronisierung in beide Richtungen. Du kannst auch Benutzerrechte anlegen, dass die meisten nur vom Server ziehen dürfen, aber nichts auf dem Server ändern dürfen.
Versionierung ist natürlich auch dabei.

Guck's dir zumindest mal an