Einzelnen Beitrag anzeigen

orion3000

Registriert seit: 28. Aug 2003
Ort: Betzdorf
63 Beiträge
 
Delphi 4 Standard
 
#16

Re: Winzip library

  Alt 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
  Mit Zitat antworten Zitat