paul_smART
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sanmon
да примитивно так же как все через батник или через секцию Code
к примеру вот так
Код:
procedure extractALL;
var
ErrorCode: Integer;
begin
ShellExec('open',ExpandConstant('{src}\packedbigfile.000.exe'),'-e -d"'+ExpandConstant('{app}')+'" -y -s2', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode);
ShellExec('open',ExpandConstant('{app}\precomp.exe'),'-r -obigfile.000 bigfile.000.pcf', '', SW_SHOWMINIMIZED, ewWaitUntilTerminated, ErrorCode);
DeleteFile (ExpandConstant('{app}\bigfile.000.pcf'));
ShellExec('open',ExpandConstant('{src}\packedbigfile.001.exe'),'-e -d"'+ExpandConstant('{app}')+'" -y -s2', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode);
ShellExec('open',ExpandConstant('{app}\precomp.exe'),'-r -obigfile.001 bigfile.001.pcf', '', SW_SHOWMINIMIZED, ewWaitUntilTerminated, ErrorCode);
DeleteFile (ExpandConstant('{app}\bigfile.001.pcf'));
end;
|
но это далеко не то чего хотелось бы...
выскакивают окошка поверх окна инсталлера, прогресс бар не движется в соответствии с процессом извлечения...
вот ExtrematoR написал для 7зип дллку- очень хорошее дело, но надо бы под FreeArc было бы уже покрасивее.. и вот если процесс распаковки прекомп вот так как я писал выше в окно инсталлера выводить было бы куда красивше |
