Qirashi

Реализовать силами самого inno setup это невозможно, нужно прибегать к сторонним библиотекам по типу Ботва. Сам inno даёт на выбор очень мало страниц, но это тот самый минимум который нужен для обычных установщиков.

Напиши в ВК, отвечу по возможности. Тут могу забыть https://vk.com/qirashi Я наглядно покажу как это работает и покажу как это оптимизировать для удобной работы

Установщик точно определяет директорию {app}?

Если в кратце, то где-то долэна быть примерно такая строчка: ExpandConstant('{reg:HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\LGC-WOTB.RU.PRODUCTION\,InstallLocation|{cm:NoInstallPath}}'); В ней определяется путь до клиента.

Можно сделать примерно так.

Проще написать функцию где есть возможность выбора клиента. Как буду дома скину пример как можно сделать.

В смысле только клиент Лесты?

Сам спросил, сам ответил. Если условно есть такой код: [Run] Filename: "{tmp}\7za.exe"; Parameters: "x ""{tmp}\Hangar.7z"" -o""{app}\Data\"" * -r"; Flags: runhidden runascurrentuser; То его можно реализовать при помощи Exec или ShellExec .

Доброго времени суток. Возник очень интересный вопрос, подобного в теме не видел. Filename: "{tmp}\7za.exe"; Parameters: "x ""{tmp}\Hangar.7z"" -o""{app}\Data\"" * -r"; Flags: runhidden runascurrentuser; В категории [Run] есть возможность запустить файл с расширением ехе. Но если этих файлов много, это вызывает некоторые проблемы. Возможно-ли перенести запуск файлов в секцию Code? Какой можно воспользоваться командой? Поясняю для тех кто скажет что это бесполезно, в коде можно сделать привязку к компоненту и лишний раз команда выполняться не будет.

Уже сам нашёл решение. Интересный прикол с битностью системы...

Зависит от того, что ты хочешь сделать. У меня вообще установщик для репаков.

DelTree тебе в помощь... if CurStep = ssDone then begin DeleteFile(ExpandConstant('{app}\1\1.bin')); end; begin DelTree(ExpandConstant('{app}\1\1\DelTree'), True, True, True); end; @P.S.Enot Что-то такое.

. . . procedure Select1(Sender:TObject); begin if (Dir1<> WizardForm.DirEdit.Text) then Dir1:= WizardForm.DirEdit.Text; WizardForm.DirEdit.Text:= ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Steam'#32#10'App'#32#10'444200,InstallLocation}'); WizardForm.DirEdit.Enabled:= False; WizardForm.DirBrowseButton.Enabled:= False; end; procedure Select2(Sender:TObject); begin if (Dir2<> WizardForm.DirEdit.Text) then Dir2:= WizardForm.DirEdit.Text; WizardForm.DirEdit.Text:= ExpandConstant('{reg:HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\LGC-WOTB.RU.PRODUCTION\,InstallLocation}'); WizardForm.DirEdit.Enabled:= False; WizardForm.DirBrowseButton.Enabled:= False; end; procedure Select3(Sender:TObject); begin if (Dir3<> WizardForm.DirEdit.Text) then Dir3:= WizardForm.DirEdit.Text; WizardForm.DirEdit.Text:= ExpandConstant('C:\Program Files\'); WizardForm.DirEdit.Enabled:=True; WizardForm.DirBrowseButton.Enabled:= True; end; . . . //Выбор пути установки { NewRadioButton1 } NewRadioButton1 := TNewRadioButton.Create(WizardForm); with NewRadioButton1 do begin Parent := WizardForm.SelectDirPage; Left := ScaleX(16); Top := ScaleY(128); Width := ScaleX(300); Height := ScaleY(17); Caption := CustomMessage('CaptionSteamInstallation'); OnClick:= @Select1; end; { NewRadioButton2 } NewRadioButton2 := TNewRadioButton.Create(WizardForm); with NewRadioButton2 do begin Parent := WizardForm.SelectDirPage; Left := ScaleX(16); Top := ScaleY(152); Width := ScaleX(300); Height := ScaleY(17); Caption := CustomMessage('CaptionWGCInstallation'); OnClick:= @Select2; Checked:= True; end; { NewRadioButton3 } NewRadioButton3 := TNewRadioButton.Create(WizardForm); with NewRadioButton3 do begin Parent := WizardForm.SelectDirPage; Left := ScaleX(16); Top := ScaleY(176); Width := ScaleX(300); Height := ScaleY(17); Caption := CustomMessage('CaptionManualInstallation'); OnClick:= @Select3; Checked:= True; end; NewRadioButton1.TabOrder := 5; NewRadioButton2.TabOrder := 6; NewRadioButton3.TabOrder := 7; Использовал код выше для определения пути установки и последующего выбора. (Нужно было выбрать путь установки для Стим, Леста гейм центра или ручную. Путь должен был искаться через реестр) Но в итоге столкнулся с проблемой, что в пути реестра нельзя использовать пробелы иначе он не может найти путь установки. procedure Select1(Sender:TObject); begin if (Dir1<> WizardForm.DirEdit.Text) then Dir1:= WizardForm.DirEdit.Text; WizardForm.DirEdit.Text:= ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Steam App 444200,InstallLocation}'); WizardForm.DirEdit.Enabled:= False; WizardForm.DirBrowseButton.Enabled:= False; end; Код в 1 и во 2 вставке не может найти путь... Скажите что я не так делаю и есть-ли какая-нибудь альтернатива?

Поиск пути установки игры ведётся через запись в реестре.

https://cdn.discordapp.com/attachments/1000386728202354688/1033741055163637920/-.zip Держи