ZipMaster will alles außer exe

[Alexander Roth]

Hi @all,

also ich beutze Zipmaster. Ich habe versucht in einem neuen Projekt mit zipmaster beliebige Dateiformate zu packen. Alles kein Problem. Bis ich eine exe packen wollte. Er machte es zwar anstandslos, doch er das zip Archiv ist kein deut kleiner als die ungepackte Datei.

Wenn ich an die exe die endung exe.dat dranhänge komprimiert er es.

Wisst ihr wieso das so ist? Könntet ihr das mal bei euch ausprobieren, ob das auch so ist?
Gibt es da irgendeine Einstellung die man da umschalten muss?

Und das wichtigste: Wie kriege ich exe komprimiert?


Ach ja den Code:

Delphi-Quellcode:

        zipmaster1.ZipFileName:=programpath+'.zip';
        ZipMaster1.FSpecArgs.Add(programname);
        ZipMaster1.Add;

Dann noch das da:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   ZipMaster1.Dll_Load := true;
end;

und

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ZipMaster1.Dll_Load := false;
end;

Das sind die Einstellungen der Komponente: (Gexperts Component to code)

Delphi-Quellcode:

var
  ZipMaster1: TZipMaster;

  ZipMaster1 := TZipMaster.Create(Self);
  with ZipMaster1 do
  begin
    Name := 'ZipMaster1';
    AddOptions := [];
    AddStoreSuffixes := [assGIF, assPNG, assZ, assZIP, assZOO, assARC, assLZH, assARJ, assTAZ, assTGZ, assLHA, assRAR, assACE, assCAB, assGZ, assGZIP, assJAR, assEXE, assJPG, assJPEG, ass7Zp, assMP3, assWMV, assWMA, assDVR, assAVI];
    Dll_Load := False;
    DLLDirectory := '..\..\Dll';
    ExtrOptions := [];
    KeepFreeOnAllDisks := 0;
    KeepFreeOnDisk1 := 0;
    MaxVolumeSize := 0;
    PasswordReqCount := 1;
    SFXOptions := [];
    SFXOverWriteMode := OvrConfirm;
    SFXPath := 'DZSFXUS.bin';
    SpanOptions := [];
    Trace := False;
    Unattended := False;
    Verbose := True;
    Version := '1.79.04.02';
    VersionInfo := '1.79.04.02';
  end;

Tschüss

Alexander