Registriert seit: 28. Aug 2003
Ort: Betzdorf
63 Beiträge
Delphi 4 Standard
|
Re: Winzip library
10. Sep 2003, 17:26
Hallo Lillebrohr,
wenn du Zipmaster nut dann veruch folgendes.
Zipmaster1.ZipFileName:='C:\test.zip'; /// Archiv öffnen
if Not DirectoryExists('C:\Test\') then /// Zielordner erstellen, wenn nicht vorhanden
begin
Forcedirectories('C:\Test');
if Not DirectoryExists('C:\Test\') then
begin
MessageDlg('Zielverzeichniss C:\Test konnte nicht erstellt werden!', MtError,[mbOk], 0);
exit;
end;
end;
Zipmaster1.ExtrBaseDir:='C:\test\'; /// Zielordner festlegen
/// Entkomprimieoptionen von Zipmaster
/// 1. ExtrDirnames -Stellt die Original -Pfade wiederher
/// 2. ExtrOverWrite -Überschreibt vorhandene Dateien
/// 3. ExtrFreshen -Es werden nur Dateien ünerschrieben die noch nicht vorhanden sind
/// 4. Extrupdate -Vorhandene,"nur ältere" ,Dateien werden überschrieben
/// 5. ExtrTest -Archiv testen
Zipmaster1.ExtrOptions:=[]; /// Keine Entkomprimieroptionen
Zipmaster1.FSpecArgs.Clear;
Zipmaster1.FSpecArgs.Add('zu entpackende Dateien hinzufügen');
/// hier dürfen keine dopplte Dateinamen eingefügt werden, und es ist wichtig
/// wurden Pfadangaben gespeichert so müssen diese mit übernommen werden.
Zipmaster1.Extract;
Gruß
Orion3000
|