Can any help locating why this bit of code won't perform the unzip of an XZ-file with 7z, if called from Commandprompt it works perfectly:
7z e zippedfile_Deptartmentname.xz
The code doesn't give any errors but files are not extracted.
UnZipper := TProcess.Create(Nil);
UnZipper.Options := UnZipper.Options+[poWaitOnExit,poNoConsole];
UnZipper.Executable := ExtractFilePath(Application.ExeName)+'\7z.exe';
for vI := 0 to HTTPdoc.Count - 1 do
begin
Unzipper.Parameters.Clear;
UnZipper.Parameters.Add('e');
UnZipper.Parameters.Add('zippedfile_'+HTTPdoc[vI]+'.xz');
UnZipper.Active := True;
UnZipper.Execute;
UnZipper.WaitOnExit;
end;
UnZipper.Free;
Thanks in advance