Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Ordner vor unerlaubtem Zugriff schützen (https://www.delphipraxis.net/16950-ordner-vor-unerlaubtem-zugriff-schuetzen.html)

Smokey 26. Feb 2004 10:25

Re: Ordner vor unerlaubtem Zugriff schützen
 
Na dann beschäftige dich mal mit der API. Stichworte :

SECURITY_ATTRIBUTES (struktur)

lpSecurityAttributes

Links :
http://msdn.microsoft.com/library/de...attributes.asp

http://msdn.microsoft.com/library/de...ss_control.asp

Wie ich unten ja auch sagte, Übung is immer gut

8)

Dannyboy 11. Mär 2004 13:00

Feedback
 
Yo,
danke noch mal für Eure Hilfe. Das Programm ist so gut wie
fertig. Ich habe das nun so gelöst:

1- Suche alle Dateien im ausgewählten Ornder
2- Wenn Summe der Dateien > 4GB, dann brich ab
3- Erstelle spezifische Datei neben gewählten Ordner (.PACKAGE_DIRECTORY)
4- Schreibe TPackageHeader in spezifische Datei (siehe unten)
5- Checke aktuelle Datei und trage Infos in TFileheader ein (siehe unten)
6- Hänge aktuelle Datei an spezifische Datei an
7- Suche nächste Datei. gehe zu Punkt 4).


Delphi-Quellcode:
TFileheader = record
                FileName : String[255];
                Anzahl_Bytes : INT64;
              end;

TPackageHeader = record
                   FileBytes : INT64; // Summe aller Bytes von allen (!) Dateien
                   Amount_of_Files : integer;
                 end;
Eine solche (.PACKAGE_DIRECTORY) ist also folgendermaßen aufgebaut.


Code:
************************
*----TPackageHeader----*
*----TFileHeader #1----*
*-------Datei #1-------*
*----TFileHeader #2----*
*-------Datei #2-------*
*---------...----------*
*---------...----------*
*----TFileHeader #n----*
*-------Datei #n-------*
************************
Süße Graphik. :lol:


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:00 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz