Forum: Programmieren allgemein
by trifid,
26. Sep 2005
Ich hab mal kurz die Abbrevia 3.05 BETA 6 von Sourceforge heruntergezogen und installiert.
Das ist die aktuellste BETA
Dabei habe ich folgende 2 Varianten ausprobiert
Neu war, dass AbZipper1.FileName den Pfad noch benötigt, naja
try
AbZipper1.BaseDirectory := 'C:\mypath\';
AbZipper1.FileName := 'C:\mypath\my.zip';
AbZipper1.AddFiles('*.*', faReadOnly or...
Forum: Programmieren allgemein
by trifid,
26. Sep 2005
@Christian Seehase
du hast recht, aber dann ist auch die Hilfe falsch (s.a. Das Beispiel zur FindFirst (Funktion) )
Im code der FindFirst-Funktion sieht man die richtige Schreibweise
function FindFirst(const Path: string; Attr: Integer;
var F: TSearchRec): Integer;
const
faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
Sorry :oops:
Nur gut dass ich auch ein ...
Forum: Programmieren allgemein
by trifid,
26. Sep 2005
verstehe ich nicht
bei mir nicht reproduzierbar
Welche Version verwendest du ?
bist du mal mit dem Debugger durch, die sourcen sind ja mit dabei
wenn der Desktop gezipt wird, dann simmt das BaseDirectory nicht
Forum: Programmieren allgemein
by trifid,
26. Sep 2005
Hallo japetos,
probiers mal damit
try
AbZipper1.BaseDirectory := 'C:\mypath\';
AbZipper1.FileName := 'my.zip';
AbZipper1.StoreOptions := ;
AbZipper1.AddFiles('*.*', faReadOnly + faDirectory + faArchive + faAnyFile);
AbZipper1.Save;
Forum: Programmieren allgemein
by trifid,
26. Sep 2005
Hallo japetos,
schau mal die Komponente hat
unter StoreOptions ein Element, diese auf soRecurse = True setzen oder
AbZipper1.StoreOptions :=