BondDaniil00 Цитата: как теперь зделать чтоб msbox вываливался только если ватник не может выполниться
-- еще раз - батник не может не выполниться! Он может не запуститься (если не найден или нет прав). Но если он запущен, то выполнится всегда. Другое дело, если прописанная в нем команда после выполнения возвращает статус с ошибкой. В функции Exec, статус выполнения сохраняется в параметре ResultCode (если 0 - успешно; отличный от нуля - в случае ошибки). Можешь анализировать ResultCode. Только следует иметь ввиду, что если в батнике будет несколько команд, то в ResultCode будет статус только последней выполненной команды.
[more]
Код: [no]
[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DirExistsWarning=no
[Files]
Source: "new.cmd"; Flags: dontcopy
[Code]
var
ResultCode: Integer;
str: string;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
ExtractTemporaryFile('new.cmd');
Exec(ExpandConstant('{tmp}\new.cmd'), ' >> result.txt', '', SW_HIDE,
ewWaitUntilTerminated, ResultCode);
if ResultCode <> 0 then
begin
LoadStringFromFile(ExpandConstant('{tmp}\result.txt'), str);
MsgBox(str + #10#13 + IntToStr(ResultCode), mbInformation, MB_OK);
end;
end;
end; [/no]
Можно просто саму утилиту 7z.exe запихнуть в инсталятор. Она размером 150 Кб. Можно просто извлечь ее в {temp} папку и оттуда уже запускать. 
