ZIP / 7Z / RAR-Komponente mit Metadatenverschlüsselung

[swestner]

OK, habe ich tatsächlich übersehen:

procedure TForm1.Button2Click(Sender: TObject);
var
Archive : TJcl7zCompressArchive;
m: TMemoryStream;
begin
m:=TMemoryStream.Create;
Archive := TJcl7zCompressArchive.Create(m,0,False);
try
Archive.AddFile('Stream0','t:\Versuchsprojekte\7Zi p\_sevenzip.pas' );
---> Archive.SetEncryptHeader(True);
Archive.Password:='password';
Archive.Compress;
m.SaveToFile('t:\1.7z');
finally
Archive.Free;
m.Free;
end;
end;


Problem gelöst.