Создание инсталляторов для модпаков на базе Inno Setup

[Ekspoint 2,122]

Нашел в инете интересный вариант скрипта http://repacks.org.ua/inno-setup/skripty/395-zapros-2.html

Реально ли в разделе "компоненты" сделать показ картинок при выборе модов

можно но там чистить еще надо от не нужного 

[Kotyarko_O 1,906]

можно но там чистить еще надо от не нужного 

И что же там ненужное?

 

[Ekspoint 2,122]

И что же там ненужное?

 

я имел ввиду чеки, а так все норм 

[AtotIK 580]

И что же там ненужное?

IsDone.

[Kotyarko_O 1,906]

я имел ввиду чеки, а так все норм 

Ну это как бы очевидно. Так же, как и название изменить.

 

IsDone.

Я его внутренности не смотрел, вопрос имелся ввиду по оформлению.

Edited March 23, 2015 by Kotyarko_O

[sergey spb 4]

Реализации на инно не видел ещё, это в стиле установщиков MSI.

Если я правильно подумал, то такое довольно гемморно сделать, придётся придумывать велосипед. Оно того не стоит.

Большое СПАСИБО!!!!

... НО ведь стандартный "unins000.exe" это делает (удаляет файлы только инсталлятора).

 А так получиться: при повторной установке удалял только установленные файлы предыдущей установки?

Edited March 23, 2015 by sergey spb

[Kotyarko_O 1,906]

 

 

А так получиться: при повторной установке удалял установленные файлы предыдущей установки?

Да, но файлы удалятся все.

[AtotIK 580]

sergey spb, либо запускать unins000.exe от прошлой установки, либо делать бэкап всех файлов. При первом варианте стандартными средствами не будут запоминаться отмеченные компоненты из прошлой установки, т.к. она уже удалена.

[Kotyarko_O 1,906]

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

Можно и с запоминанием. Например, удалять прошлую установку на моменте начала распаковки новой..

Edited March 23, 2015 by Kotyarko_O

[AtotIK 580]

Можно и с запоминанием. Например, удалять прошлую установку на моменте начала распаковки новой..

Тоже вариант.

[sergey spb 4]

Тоже вариант.

Спасибо, Ясно!!!

Тогда уже последний вопрос: При повторной установке запускается "unins000.exe" (от первой установки), а затем уже выбираешь, что установить по новому.

Делал сам, только получается: идёт установка, затем спрашивает удалить или нет? А наоборот можно (спрашивает удалить, потом устанавливаешь заново  компоненты).

Ещё раз СПАСИБО за помощь!!!!

Edited March 23, 2015 by sergey spb

[Kotyarko_O 1,906]

 

 

А наоборот можно (спрашивает удалить, потом устанавливаешь заново компоненты).

Когда именно должен спросить и когда именно должен удалить?

[sergey spb 4]

-

Когда именно должен спросить и когда именно должен удалить?

Второй раз запускаешь (т.е. уже установлены какие-то файлы и "unins000.exe") и спрашивает: удалить? Если : да, то запускаеться "unins000.exe" от первой установки и удаляет все компоненты, затем идет выбор компонентов для новой (второй) установки.

[Kotyarko_O 1,906]

del

Edited March 23, 2015 by Kotyarko_O

[sergey spb 4]

ComponentsListTVStyle=yes , не подскажите, чтобы изначально при выборе компонентов было свернуто?

т.е. отображались две папки (ангар и озвучка).

[Kotyarko_O 1,906]

 

 

чтобы изначально при выборе компонентов было свернуто?

Flags: collapsed;

[sergey spb 4]

Flags: collapsed;

Большое СПАСИБО!!!!!

Всё получилось.

 

Пост: #2993, ответ: del? Ответ не понял !

Edited March 24, 2015 by sergey spb

[Ekspoint 2,122]

 

Пост: #2993, ответ: del? Ответ не понял !

сообщение удалено 

[Kotyarko_O 1,906]

-

Второй раз запускаешь (т.е. уже установлены какие-то файлы и "unins000.exe") и спрашивает: удалить? Если : да, то запускаеться "unins000.exe" от первой установки и удаляет все компоненты, затем идет выбор компонентов для новой (второй) установки.

[Code]
Procedure CurStepChanged(CurStep: TSetupStep);
var
 Reg, UninstallPath: String;
 ResultCode: Integer;
begin
 if CurStep = ssInstall then
 begin
  Reg := ExpandConstant('Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{#emit SetupSetting("AppID")}_is1');
  if RegValueExists(HKLM, Reg, 'UninstallString') then
   RegQueryStringValue(HKLM, Reg, 'UninstallString', UninstallPath);
  if Length(UninstallPath) > 0 then
  begin
   case MsgBoxEx(WizardForm.Handle, 'Рекомендуется удалить ранее установленную версию сборки.' + #13#10 + 'Хотите сделать это сейчас?', '...', MB_YESNO or MB_ICONQUESTION, 0, 0) of
    IDYES: Exec(RemoveQuotes(ExpandConstant(UninstallPath)), '/SILENT /SUPPRESSMSGBOXES', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
    IDNO: Exit;
   end;
  end;
 end;
end;

Пробуй.

p.s. немного подправил.

Edited March 24, 2015 by Kotyarko_O

[Ekspoint 2,122]

А можно так 

#define DelModpack           "Обнаружена установленная сборка"
[CustomMessages]
EkspointModpack=Обнаружена более ранняя установленная версия Ekspoint Mod Pack.%nРекомендуется удалить данную версию сборки,перед установкой.%nВыполнить удаление?

[Code]
function DeletModpak: Boolean;
var
  UnStr: String;
  ErrorCode, Mesages: Integer;
begin
  Result := True;
  if RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{EkspointRU-6B5CBE9A-29E4-4AF7-8528-4D2AFFA04B0B}_is1', 'UninstallString', UnStr) then
begin
   If UnStr <> '' then
begin
   Mesages :=  MsgBoxEx(0, CustomMessage('EkspointModpack'),'{#DelModpack}', MB_YESNO or MB_ICONQUESTION, 0, 0);
case Mesages of
   idYes:
begin
   UnStr := RemoveQuotes(UnStr);
   Exec(UnStr, '/silent', '', SW_Show, ewWaitUntilTerminated, ErrorCode);
   Result := True;
end;end;end;end;
end;

Хотя одно и тоже почти (только тут через function InitializeSetup )