Почему не отрабатывает батник?

Хамик · 8 Апр 2023

@Александр85, с помощью функций IsTaskSelected или IsComponentSelected, смотря через что у вас задача реализована. Примеров использования функций полно в интернете, но в справке это все есть.

Crachlow · 8 Апр 2023

Александр85 написал(а):
Подскажите, кто-нибудь, как тогда, как "по-тихому", запустить стандартное средство очистки cleanmgr.exe, чтобы там было по максимуму галочек и без какого либо участия и отображения для пользователя?!

cleanmgr.exe /c /autoclean /setup /lowrisk setup & lowrisk на усмотрение

tihiy_don · 14 Апр 2023

Можно ли отследить выполнение батника, а затем выполнить удаление его и другой папки? Или так отработает? А то у меня зависло всё после нажатия кнопки "завершить".
Пример:

code_language.pascal:

procedure CurStepChanged(CurStep: TSetupStep);
var i: integer;
begin
  if CurStep = ssDone then
  begin
    Exec(ExpandConstant('{app}\test.bat'), ' /q /norestart', '', SW_HIDE, ewWaitUntilTerminated, i);   //выполнение бат-файла
    DeleteFile(ExpandConstant('{app}\test.bat')); // Удаление файла
    DelTree(ExpandConstant('{app}\testdiru'), True, True, True); // Удаление папки
  end;
end;

Crachlow · 14 Апр 2023

Проверь правильность выполнения бат файла SW_SHOW, а батник можно сделать что бы удалял себя сам по выполнении. В конце батника дописать del /f /q "%~dp0start.bat"

tihiy_don · 14 Апр 2023

Crachlow написал(а):
Проверь правильность выполнения бат файла SW_SHOW, а батник можно сделать что бы удалял себя сам по выполнении. В конце батника дописать del /f /q "%~dp0start.bat"

Проблема в батнике устранена. С учётом вышесказанного, если я построчно сделаю (как в коде выше), то сначала выполниться батник, а затем удаление файла и папки?

Crachlow · 14 Апр 2023

В той очередности и будет выполнение.

tihiy_don · 14 Апр 2023

Crachlow написал(а):
В той очередности и будет выполнение.

То-есть, дождётся когда выполнится батник, а затем перейдёт дальше удалять? Мне главное чтоб батник не удалился до конца выполнения его содержимого. Батник довольно большой и выполняет некоторое время действия.

Crachlow · 14 Апр 2023

Если функция возвратит True и Wait имеет значение ewWaitUntilTerminated, тогда ResultCode содержит код выхода запущенного процесса.
Если функция возвратит False, тогда ResultCode содержит код ошибки. Чтобы получить описание ошибки, используйте SysErrorMessage(ResultCode).

tihiy_don · 14 Апр 2023

@Crachlow,
Видел эту инфу, просто хотел уточнить верно ли я всё сделал

Crachlow · 14 Апр 2023

tihiy_don написал(а):
@Crachlow,
Видел эту инфу, просто хотел уточнить верно ли я всё сделал

Так то да.

MISHAWIN · 4 Окт 2023

Понять не могу, батник запускается, но текстовый файл, блокнотом или средство поумолчанию не открывает.

Exec(ExpandConstant('{app}\1.txt'),'','', SW_SHOW, ewWaitUntilTerminated, Res);

или так

Exec('{app}' + '\1.txt', '', '', SW_SHOW, ewNoWait, Res);

Crachlow · 4 Окт 2023

MISHAWIN написал(а):
Понять не могу, батник запускается, но текстовый файл, блокнотом или средство поумолчанию не открывает.

Exec(ExpandConstant('{app}\1.txt'),'','', SW_SHOW, ewWaitUntilTerminated, Res);

или так

Exec('{app}' + '\1.txt', '', '', SW_SHOW, ewNoWait, Res);

ShellExec('open', ExpandConstant('{app}\1.txt '), '', '', SW_SHOW, ewNoWait, ErrorCode);

MISHAWIN · 4 Окт 2023

Crachlow написал(а):
ShellExec('open', ExpandConstant('{app}\1.txt '), '', '', SW_SHOW, ewNoWait, ErrorCode);

Спасибо за ответ.

Cyberworm · 12 Дек 2023

Вопрос на связанную тематику: на днях решил отказаться от выполнения команд внешнего файла Install.bat со следующей начинкой:

Форматирование (BB-код):

@echo on
::Делаем копию архива
IF NOT EXIST "Backup\data.tpk" (COPY /Y "..\data.tpk" "Backup\data.tpk") ELSE (ECHO Backup has been done already)
::Внедряем файлы в архив черех скрипт
IF EXIST "Backup\data.tpk" (quickbms.exe -w -r -r -r Tiny_Thor_TPK_script.bms "..\data.tpk" "Data_rus") ELSE (ECHO File not found data.tpk)
::Самоуничтожение
del /f /q "%~dp0Install.bat"

Отдельно проверил работу quickbms.exe через скрипт Tiny_Thor_TPK_script.bms командой в секции [Run]:

Filename: "{app}\rus\quickbms.exe"; Parameters: "-w -r -r -r Tiny_Thor_TPK_script.bms ""..\data.tpk"" ""Data_rus"""; Flags: shellexec

Вроде данная часть работает без косяков.
Далее решил проверить полную отработку команд батника через командную строку

Filename: "{sys}\cmd.exe"; Parameters: "тупо_все_команды_файла_Install.bat"; WorkingDir: "{app}\rus"; Flags: shellexec

(кроме самоуничтожения), то компилятор не понимает цепочку событий и глохнет на вызове quickbms.exe уже в процессе инсталляции.
Есть ли способ обеспечить правильное выполнение команд через командную строку или надо расширять возможности скрипта методом копирования файлов и их восстановления? По идее можно прикрутить расширение функций Backup через #include "SHFileOperation.iss", но здесь загвоздка в другом. Я не копирую готовый файл data.tpk в папку установки, ведь его модифицирует quickbms.exe в процессе установки с помощью Tiny_Thor_TPK_script.bms, но тем не менее оригинал надо отправить в папку Backup.

Shegorat · 13 Дек 2023

@Cyberworm,сам батник, если его положить в нужную папку и запустить отрабатывает нормально? При запуске через shellexec все необходимые файлы лежат на месте?

Cyberworm · 13 Дек 2023

Shegorat написал(а):
@Cyberworm,сам батник, если его положить в нужную папку и запустить отрабатывает нормально? При запуске через shellexec все необходимые файлы лежат на месте?

Скрипт отлично работает, если использовать Filename: "{app}\rus\Install.bat"; Parameters: "Install"; Flags: shellexec (тестовый вариант с pause, который требует участие пользователя для скриншота ниже). В конечном варианте паузы не будет, ибо я использую самоуничтожение Install.bat и Flags: runhidden

Поэтому я пришёл к выводу, что секция Parameters является малость кастрированной с ограниченным функционалом. Надо эту логику в секцию Code переносить и там через условие запускать записи из секции Run. То есть, примерно что-то такое:

IF NOT FILEEXISTS("Путь до бекапа data.tpk")
Run_backup()
RUN_BMS()
ENDIF;

Run_backup():
FileCopy("data.tpk" "rus\backup\data.tpk", FALSE)

Run_BMS():
Filename: "quick_bms.exe" Parameters: -w -r -r -r Tiny_Thor_TPK_script.bms ""..\data.tpk""

Как бы это всё правильно организовать?

Cyberworm · 26 Дек 2023

Cyberworm написал(а):
Скрипт отлично работает, если использовать Filename: "{app}\rus\Install.bat"; Parameters: "Install"; Flags: shellexec (тестовый вариант с pause, который требует участие пользователя для скриншота ниже). В конечном варианте паузы не будет, ибо я использую самоуничтожение Install.bat и Flags: runhidden

Посмотреть вложение 8166

Поэтому я пришёл к выводу, что секция Parameters является малость кастрированной с ограниченным функционалом. Надо эту логику в секцию Code переносить и там через условие запускать записи из секции Run. То есть, примерно что-то такое:

IF NOT FILEEXISTS("Путь до бекапа data.tpk")
Run_backup()
RUN_BMS()
ENDIF;

Run_backup():
FileCopy("data.tpk" "rus\backup\data.tpk", FALSE)

Run_BMS():
Filename: "quick_bms.exe" Parameters: -w -r -r -r Tiny_Thor_TPK_script.bms ""..\data.tpk""

Как бы это всё правильно организовать?

code_language.pascal:

[Run]
Filename: "{app}\rus\quickbms.exe"; Parameters: "-w -r -r -r Tiny_Thor_TPK_script.bms ""..\data.tpk"" ""data_rus"""; Check: RunBMS; Flags: runhidden

[Code]
function RunBMS: Boolean;
begin
  if not (FileExists(ExpandConstant('{app}\rus\Backup\data.tpk'))) then
  begin
    FileCopy(ExpandConstant('{app}\data.tpk'), ExpandConstant('{app}\rus\Backup\data.tpk'), False);
    Result := True;
  end else
  begin
    Result := False;
  end;
end;

Я так понимаю, что [Run] запускается после копирования всех файлов в папку и тогда он запустит проверку RunBMS. Тот посмотрит, если нет файла, то скопирует и запустит qickbms.exe. Если есть файл, то ничего не произойдет (типа запустили русификатор во второй раз и пытаются установить). Тут, конечно, много подводных камней и защита на дурака нужна (а есть ли файл), но это уже заморочки. Главное, что работает...

Почему не отрабатывает батник?

Хамик

Старожил

Crachlow

Старожил

tihiy_don

Старожил

Crachlow

Старожил

tihiy_don

Старожил

Crachlow

Старожил

tihiy_don

Старожил

Crachlow

Старожил

tihiy_don

Старожил

Crachlow

Старожил

MISHAWIN

Новичок

Crachlow

Старожил

MISHAWIN

Новичок

Cyberworm

Новичок

Shegorat

Lord of Madness

Cyberworm

Новичок

Cyberworm

Новичок