Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#3

Re: 7-zip Entpacker einbinden

  Alt 26. Feb 2008, 14:29
Also ich habe mich mal dran versucht, und bin dran gescheitert

Und zwar habe ich folgendes Problem:
Delphi-Quellcode:
sevenZip := TSevenZip.Create(self);
try
  sevenZip.SFXCreate := False;
  sevenZip.SFXModule := '7z.sfx';
  sevenZip.AddOptions := [AddRecurseDirs];
  sevenZip.ExtractOptions := [];
  sevenZip.LZMACompressType := LZMA;
  sevenZip.LZMACompressStrength := NORMAL;
  sevenZip.LZMAStrength := 0;
  sevenZip.ExtrBaseDir := bufferPath;
//sevenZip.LPPMDmem := 0;
//sevenZip.LPPMDsize := 0;
  sevenZip.NumberOfFiles := -1;
  sevenZip.VolumeSize := 1000000;
  sevenZip.OnProgress := SevenZipProgress;

  sevenZip.SZFileName := FUpdateInformation[FArchiveIdx * 3];
  sevenZip.Extract;
finally
  FreeAndNil(sevenZip);
end;
Wenn ich nun ".Extract" oder ".List" aufrufe, zeigt er einen OpenDialog an. kA warum?!

MfG
xZise
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat