Jump to content
Korean Random

Qirashi

User
  • Content Count

    24
  • Joined

  • Last visited

  • Days Won

    2

Qirashi last won the day on January 3

Qirashi had the most liked content!

Community Reputation

11 Noob

About Qirashi

  • Birthday 07/01/2003

Basic information

  • Gender
    Мужчина

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Сам спросил, сам ответил. Если условно есть такой код: [Run] Filename: "{tmp}\7za.exe"; Parameters: "x ""{tmp}\Hangar.7z"" -o""{app}\Data\"" * -r"; Flags: runhidden runascurrentuser; То его можно реализовать при помощи Exec или ShellExec .
  2. Доброго времени суток. Возник очень интересный вопрос, подобного в теме не видел. Filename: "{tmp}\7za.exe"; Parameters: "x ""{tmp}\Hangar.7z"" -o""{app}\Data\"" * -r"; Flags: runhidden runascurrentuser; В категории [Run] есть возможность запустить файл с расширением ехе. Но если этих файлов много, это вызывает некоторые проблемы. Возможно-ли перенести запуск файлов в секцию Code? Какой можно воспользоваться командой? Поясняю для тех кто скажет что это бесполезно, в коде можно сделать привязку к компоненту и лишний раз команда выполняться не будет.
  3. Уже сам нашёл решение. Интересный прикол с битностью системы...
  4. Зависит от того, что ты хочешь сделать. У меня вообще установщик для репаков.
  5. 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 Что-то такое.
  6. . . . 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 вставке не может найти путь... Скажите что я не так делаю и есть-ли какая-нибудь альтернатива?
  7. Поиск пути установки игры ведётся через запись в реестре.
  8. https://cdn.discordapp.com/attachments/1000386728202354688/1033741055163637920/-.zip Держи
  9. @Lom Попробуй использовать полную библиотеку, без переписанной локализации, возможно ты что-то упустил. Скачать можно из интернета, если не найдёшь, могу свою скинуть
  10. Сможешь вывести текст в кастомном сообщении?
  11. Нужен вывод картинки и текста, картинка у каждого компонента разная, а описание поддаётся локализации. Остальное в установщике готово и проблемы не создаёт. Если кто-то реально готов взяться за заказ, могу дать свой скрипт. Желательно чтобы была приемлемая цена.
  12. Он пока что не отвечает... Придётся подождать
  13. Не знаешь к кому можно ещё обратиться?
×
×
  • Create New...