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

[Ekspoint]

Если считаешь нужным.

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

а как сделать чтобы кнопка отвечала за принятия условий лицензии?

[Kotyarko_O]

 

 

а как сделать чтобы кнопка отвечала за принятия условий лицензии?

Что?

[Ekspoint]

Что?

создать кнопку под названием "принять" на стр лицензии 

и почему ошибка,на чистом скрипте не было

 

[Code]
Procedure OneSetup();
begin
If FindWindowByClassName('TWizardForm') <> 0 then
begin
  MsgBoxEx(0, '               Одна из копий модпака уже запущена.'+ #13#10 +'Пожалуйста,нажмите «OK», чтобы выйти из установки.',
   'Внимание!!', MB_OK or MB_ICONINFORMATION, 0, 0);
  Abort;
end;
end;
Function InitializeSetup3(): Boolean;
begin
OneSetup();
Result := True;
end;

[Kotyarko_O]

 

 

создать кнопку под названием "принять" на стр лицензии

Зачем создавать?

Там по стандарту две кнопки.

 

 

 

и почему ошибка,на чистом скрипте не было

Потому что InitializeSetup3. Ищи конфликт в других.

[Ekspoint]

Зачем создавать?

Там по стандарту две кнопки.

 

 

 

Потому что InitializeSetup3. Ищи конфликт в других.

 

какой именно конфликт? 

мне нужна кнопка там где рисуется кнопка "отмена" "далее"

InitializeSetup1-скин

InitializeSetup2-килтаск

Edited December 7, 2014 by Ekspoint

[Kotyarko_O]

del

Edited December 7, 2014 by Kotyarko_O

[Ekspoint]

Мне откуда знать?

И даже если логику включить, то это:

[code]
Procedure OneSetup();
begin
If FindWindowByClassName('TWizardForm') <> 0 then
begin
  MsgBoxEx(0, '               Одна из копий модпака уже запущена.'+ #13#10 +'Пожалуйста,нажмите «OK», чтобы выйти из установки.',
   'Внимание!!', MB_OK or MB_ICONINFORMATION, 0, 0);
  Abort;
end;
end;
Function InitializeSetup3(): Boolean;
begin
OneSetup();
Result := True;
end;
[/code]
[/spoiler]не правильно.

Это будет тот же самый бред, что и это:
[code=auto:0][code]
Function InitializeSetup1(): Boolean;
begin
 ...
end;

Function InitializeSetup2(): Boolean;
begin
 InitializeSetup1();
end; 

Function InitializeSetup(): Boolean;
begin
 InitializeSetup2();
end;

Ну так создай её.

 

вот так у меня 

Function InitializeSetup(): Boolean;
begin
InitializeSetup1(); 
InitializeSetup2(); 
InitializeSetup3(); 
Result:=True;
end;

и почему не верно?

ведь первые 2 процедуры нормально грузит

[Kotyarko_O]

и почему не верно?

Я не буду делать ВСЁ за тебя. Учись думать сам. F8 в помощь.

Я дал рабочий код. Совместимость твоего кода с моим я не гарантировал. Это уже твои проблемы.

уж простите за прямоту, но давно пора.

Edited December 7, 2014 by Kotyarko_O

[Ekspoint]

Я не буду делать ВСЁ за тебя. Учись думать сам. F8 в помощь.

Я дал рабочий код. Совместимость твоего кода с моим я не гарантировал. Это уже твои проблемы.

уж простите за прямоту, но давно пора.

я просто спрашиваю вот и все

отключил то и то все равно не пашет

 

в этом коде нужно что то написать вместо Abort

у тебя работает потому что в килтаске ток одна функция пашет,а не две как должно быть

Edited December 7, 2014 by Ekspoint

[Kotyarko_O]

у тебя работает потому что в килтаске ток одна функция пашет,а не две как должно быть

У меня работает, потому что у меня всё правильно.

Что ты имеешь ввиду под "двумя функциями киллтаска"?

 

'И при чём тут киллтаск?'

 

в этом коде нужно что то написать вместо Abort

Ну попробуй сделать из процедуры функцию, с булевым результатом. И используй его, присвоив ему False (Result := False), вместо Abort.

Edited December 7, 2014 by Kotyarko_O

[AtotIK]

 

 

булевым результатом

Вангую вопрос: "А что это такое?"

[Kotyarko_O]

Вангую вопрос: "А что это такое?"

Ну, если религия не позволит загуглить, то да)

[Ekspoint]

 

Что ты имеешь ввиду под "двумя функциями киллтаска"?

 

при нажатии нет у тебя нет функции

[Kotyarko_O]

при нажатии нет у тебя нет функции

Что?

А, понял. Но "у меня" - это где? в моём модПаке?

з.ы. мне кажется, я начинаю понимать твой язык.

Edited December 7, 2014 by Kotyarko_O

[Ekspoint]

Что?

А, понял. Но "у меня" - это где? в моём модПаке?

з.ы. мне кажется, я начинаю понимать твой язык.

да,в твоем

[Kotyarko_O]

да,в твоем

У меня при нажатии "Да" завершается определённый процесс. А при нажатии "Нет": Result := False и Abort. И всё это в одной функции, а не в отдельных.

Так уверенно говоришь чего у меня там нет, будто знаешь, что там вообще :)

Edited December 7, 2014 by Kotyarko_O

[Ekspoint]

У меня при нажатии "Да" завершается определённый процесс. А при нажатии "Нет": Result := False и Abort. И всё это в одной функции, а не в отдельных.

Так уверенно говоришь чего у меня там нет, будто знаешь, что там вообще :)

ну поставил я False,тоже самое

[Kotyarko_O]

ну поставил я False,тоже самое

Или ходи и спрашивай дальше вокруг да около, или кидай все свои ветки:

Function InitializeSetup(): Boolean;
begin
InitializeSetup1(); 
InitializeSetup2(); 
InitializeSetup3(); 
Result:=True;
end;

Edited December 7, 2014 by Kotyarko_O

[Ekspoint]

 

Или ходи и спрашивай дальше вокруг да около, или кидай все свои ветки:

Function InitializeSetup(): Boolean;
begin
InitializeSetup1(); 
InitializeSetup2(); 
InitializeSetup3(); 
Result:=True;
end;

если ставлю тут то ошибка в скине

[YURSHAT]

и почему ошибка,на чистом скрипте не было

Ошибка говорит, что на данном этапе WizardForm еще не существует, а вы пытаетесь к ней обратиться.

В функции InitializeSetup нельзя обращаться к WizardForm, а так же её дочерним компонентам ибо они будут созданы после того, как отработает эта функция.

Edited December 7, 2014 by YURSHAT