Also bei mir funktioniert es auch bei einem User ohne Adminrechten:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStringList;
begin
SL := TStringList.Create;
try
SL.Add('xy.exe');
SL.Add('xy2.exe');
CompressFiles(SL, 'xy.zlib');
finally
FreeAndNil(SL);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
DecompressFiles('xy.zlib', '.');
end;
Die Fehlermeldung "Ungültige Stream Operation" kommt z.B. dann wenn du versuchst in den Decompressionstream zu schreiben. Also wenn du z.B. schreibst
DecompressionStream.CopyFrom(InputStream, InputStream.Size);
statt
outfile.CopyFrom(decompr,l);