-
Content Count
31 -
Joined
-
Last visited
-
Days Won
2
Qirashi last won the day on January 3
Qirashi had the most liked content!
Community Reputation
15 NoobAbout Qirashi
- Birthday 07/01/2003
Basic information
-
Gender
Мужчина
Recent Profile Visitors
-
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Реализовать силами самого inno setup это невозможно, нужно прибегать к сторонним библиотекам по типу Ботва. Сам inno даёт на выбор очень мало страниц, но это тот самый минимум который нужен для обычных установщиков. -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Напиши в ВК, отвечу по возможности. Тут могу забыть https://vk.com/qirashi Я наглядно покажу как это работает и покажу как это оптимизировать для удобной работы -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Установщик точно определяет директорию {app}? -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Если в кратце, то где-то долэна быть примерно такая строчка: ExpandConstant('{reg:HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\LGC-WOTB.RU.PRODUCTION\,InstallLocation|{cm:NoInstallPath}}'); В ней определяется путь до клиента. -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Можно сделать примерно так. -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Проще написать функцию где есть возможность выбора клиента. Как буду дома скину пример как можно сделать. -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
В смысле только клиент Лесты? -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Сам спросил, сам ответил. Если условно есть такой код: [Run] Filename: "{tmp}\7za.exe"; Parameters: "x ""{tmp}\Hangar.7z"" -o""{app}\Data\"" * -r"; Flags: runhidden runascurrentuser; То его можно реализовать при помощи Exec или ShellExec . -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Доброго времени суток. Возник очень интересный вопрос, подобного в теме не видел. Filename: "{tmp}\7za.exe"; Parameters: "x ""{tmp}\Hangar.7z"" -o""{app}\Data\"" * -r"; Flags: runhidden runascurrentuser; В категории [Run] есть возможность запустить файл с расширением ехе. Но если этих файлов много, это вызывает некоторые проблемы. Возможно-ли перенести запуск файлов в секцию Code? Какой можно воспользоваться командой? Поясняю для тех кто скажет что это бесполезно, в коде можно сделать привязку к компоненту и лишний раз команда выполняться не будет. -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Уже сам нашёл решение. Интересный прикол с битностью системы... -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Зависит от того, что ты хочешь сделать. У меня вообще установщик для репаков. -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
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 Что-то такое. -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
. . . 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 вставке не может найти путь... Скажите что я не так делаю и есть-ли какая-нибудь альтернатива? -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
Поиск пути установки игры ведётся через запись в реестре. -
Создание инсталляторов для модпаков на базе Inno Setup
Qirashi replied to EvilAlex's topic in Modding General Discussion
https://cdn.discordapp.com/attachments/1000386728202354688/1033741055163637920/-.zip Держи