Код:
If MakeMusic and (FileExists(ExpandConstant('{app}\Example_1.7z'))) then
begin
Exec(ExpandConstant('{app}\7zA_Files\7zA.exe'), 'x -y ..\Example_1.7z -o..\Data', '', SW_Hide, ewWaitUntilTerminated, ResultCode);
DeleteFile(ExpandConstant('{app}\Example_1.7z'));
end;