Zip ist nicht wirklich das Gelbe vom Ei, ich bin bewusst nach einer anderen Möglichkeit am suchen. Ich bin mir auch nicht sicher ob ich mittels Delphi Rararchive mit einem Passwort versehen kann.
Daher dachte ich das Delphi vllt einen Container anbietet.
Wie wärs wenn du die Datei die du schützen willst einliest und dann auf binärer Ebene per Stream verändert durch nen Verschlüsselungsalgo und erst mit der richtigen Eingabe des PWs wird die Datei dann zurück aufs Originale Format zurück entschlüsselt und kann wieder ausgeführt werden.
Delphi-Quellcode:
var
filename: string;
Buffer: TBytes;
textmerker: string;
i: integer;
chTmp : char;
begin
if OpenDialog1.Execute then
begin
filename := OpenDialog1.FileName;
savevar := filename;
StatusBar1.Panels[0].Text := filename;
ProgressBar1.Position := 0;
FileStream := (TFileStream.Create(OpenDialog1.FileName, fmOpenRead+fmShareDenyNone));
try
SetLength(Buffer, FileStream.Size); //Buffergröße anhand des Filestreamsize festlegen
SetLength(bytearray, FileStream.Size); //Bytearray anhand des Filestreamsize festlegen
FileStream.ReadBuffer(Buffer, Length(Buffer));
ProgressBar1.Max := Length(Buffer);
Listbox1.Items.Clear;
for i := 0 to Length(Buffer)-1 do
Hier ne kleine Starthilfe ^^