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

[MEDNIKs]

Парни помогите с бекапом!Папку бекапа создаёт,в ней создаёт папку 0.9.2 и XVM ,но они пустые!

Код:

function BackUpMods(): Boolean;
begin
  If NewCheckBox2.Checked then
begin
  MoveDir(ExpandConstant('{app}\res_mods\{#Patch}\'),ExpandConstant('{app}\Резервная копия\{#Patch}'));
  MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\Резервная копия\xvm'));
  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
  DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);
end;
end;

 

 

и ещё вопрос ,как сделать чтоб окно инстала появлялось по центру экрана?

Edited September 6, 2014 by MEDNIKs

[Kotyarko_O]

 

 

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

Procedure InitializeWizard();
begin
 WizardForm.Center;  //Должно быть в конце процедуры
end;

[MEDNIKs]

Procedure InitializeWizard();
begin
 WizardForm.Center;  //Должно быть в конце процедуры
end;

Спасибо!

[MEDNIKs]

@Kotyarko_O,Подскажи плиз,как сделать такой же чекбокс ,как я делал для запуска клиента игры только для перезагрузки компа? 

[Kotyarko_O]

@Kotyarko_O,Подскажи плиз,как сделать такой же чекбокс ,как я делал для запуска клиента игры только для перезагрузки компа? 

А как ты делал для запуска клиента, напомни?

[MEDNIKs]

 

 

А как ты делал для запуска клиента, напомни?

 

var
NewCheckBox3: TNewCheckBox;
ResCode: Integer;

Procedure CurStepChanged1(CurStep: TSetupStep);
begin
If CurStep = ssDone then
begin
If NewCheckBox3.Checked then
begin
Exec(ExpandConstant('{app}\WOTLauncher.exe'), '', '', SW_SHOW, ewNoWait, ResCode);
end;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep=ssInstall then
begin
DeleteMods();
BackUpMods();
end;
CurStepChanged1(CurStep);

procedure InitializeWizard();

begin
NewCheckBox3 := TNewCheckBox.Create(WizardForm);
NewCheckBox3.Parent := WizardForm.FinishedPage;
NewCheckBox3.Left := ScaleX(312);
NewCheckBox3.Top := ScaleY(347);
NewCheckBox3.Width := ScaleX(13);
NewCheckBox3.Height := ScaleY(13);
NewCheckBox3.Caption := '';
NewCheckBox3.Checked := True;
end;

end;

[Kotyarko_O]

@MEDNIKs, тогда так:

'код:'

[Code]
var
NewCheckBox3, RestartBox: TNewCheckBox;
ResCode: Integer;

Procedure CurStepChanged1(CurStep: TSetupStep);
begin
If CurStep = ssDone then
begin
  If NewCheckBox3.Checked then
  begin
   Exec(ExpandConstant('{app}\WOTLauncher.exe'), '', '', SW_SHOW, ewNoWait, ResCode);
  end;
end;
If RestartBox.Checked then
begin
  Exec('shutdown', '-t 0 -r -f', '', SW_Hide, ewWaitUntilTerminated, ResCode);
end;
end;

Procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep=ssInstall then
begin
  DeleteMods();
  BackUpMods();
end;
CurStepChanged1(CurStep);
end;

Procedure InitializeWizard();
begin
NewCheckBox3 := TNewCheckBox.Create(WizardForm);
NewCheckBox3.Parent := WizardForm.FinishedPage;
NewCheckBox3.Left := ScaleX(312);
NewCheckBox3.Top := ScaleY(347);
NewCheckBox3.Width := ScaleX(13);
NewCheckBox3.Height := ScaleY(13);
NewCheckBox3.Caption := '';
NewCheckBox3.Checked := True;

RestartBox := TNewCheckBox.Create(WizardForm);
RestartBox.Parent := WizardForm.FinishedPage;
RestartBox.Left := ScaleX(312);
RestartBox.Top := ScaleY(363);
RestartBox.Width := ScaleX(100);
RestartBox.Height := ScaleY(13);
RestartBox.Caption := 'Restart';
RestartBox.Checked := False;
end;

Edited September 9, 2014 by Kotyarko_O

[MEDNIKs]

@MEDNIKs, тогда так:

'код:'

[Code]
var
NewCheckBox3, RestartBox: TNewCheckBox;
ResCode: Integer;

Procedure CurStepChanged1(CurStep: TSetupStep);
begin
If CurStep = ssDone then
begin
  If NewCheckBox3.Checked then
  begin
   Exec(ExpandConstant('{app}\WOTLauncher.exe'), '', '', SW_SHOW, ewNoWait, ResCode);
  end;
end;
If RestartBox.Checked then
begin
  Exec('shutdown', '-t 0 -r -f', '', SW_Hide, ewWaitUntilTerminated, ResCode);
end;
end;

Procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep=ssInstall then
begin
  DeleteMods();
  BackUpMods();
end;
CurStepChanged1(CurStep);
end;

Procedure InitializeWizard();
begin
NewCheckBox3 := TNewCheckBox.Create(WizardForm);
NewCheckBox3.Parent := WizardForm.FinishedPage;
NewCheckBox3.Left := ScaleX(312);
NewCheckBox3.Top := ScaleY(347);
NewCheckBox3.Width := ScaleX(13);
NewCheckBox3.Height := ScaleY(13);
NewCheckBox3.Caption := '';
NewCheckBox3.Checked := True;

RestartBox := TNewCheckBox.Create(WizardForm);
RestartBox.Parent := WizardForm.FinishedPage;
RestartBox.Left := ScaleX(312);
RestartBox.Top := ScaleY(363);
RestartBox.Width := ScaleX(100);
RestartBox.Height := ScaleY(13);
RestartBox.Caption := 'Restart';
RestartBox.Checked := False;
end;

Очередной раз большое спасибо!

Парни кто нибудь использует сторонние шрифты?Что и где прописать  на установку шрифтов?

[Kotyarko_O]

 

 

Парни кто нибудь использует сторонние шрифты?Что и где прописать на установку шрифтов?

На установку? Или сторонние шрифты в интерфейсе инсталла?

[MEDNIKs]

 

 

На установку? Или сторонние шрифты в интерфейсе инсталла?

на установку!Ведь в некоторых модах и XVM конфигах используются стороние шрифты и не хотелось бы их менять на стандартные. 

[Kotyarko_O]

на установку!Ведь в некоторых модах и XVM конфигах используются стороние шрифты и не хотелось бы их менять на стандартные. 

Несколько раз уже писал, как.

[Files]
Source: FILES\Fonts\XVMSymbol.ttf; DestDir: "{fonts}"; FontInstall: "XVMSymbol"; Flags: onlyifdoesntexist uninsneveruninstall;
Source: FILES\Fonts\PartnerCondensedMono.ttf; DestDir: "{fonts}"; FontInstall: "PartnerCondensed"; Flags: onlyifdoesntexist uninsneveruninstall;

[MEDNIKs]

 

Несколько раз уже писал, как.

[Files]
Source: FILES\Fonts\XVMSymbol.ttf; DestDir: "{fonts}"; FontInstall: "XVMSymbol"; Flags: onlyifdoesntexist uninsneveruninstall;
Source: FILES\Fonts\PartnerCondensedMono.ttf; DestDir: "{fonts}"; FontInstall: "PartnerCondensed"; Flags: onlyifdoesntexist uninsneveruninstall;

и опять спасибо тебе!

[MEDNIKs]

ребят кто знает как сделать чтоб 2 прицела не конфликтовали!У прицела домоклов меч есть фаил sights.xml и у корейского прицела есть такой фаил а значения разные!Можно их как то объеденить или это  скрипт sights.pyc нужно переписывать?

[Kotyarko_O]

 

 

У прицела домоклов меч есть фаил sights.xml и у корейского прицела есть такой фаил а значения разные!

И что?

Прицелы должны иметь флаг exclusive (или один, или другой). А как ты себе представляешь установку сразу двух прицелов?

[MEDNIKs]

 

 

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

просто прицелы разного типа ,один аркадный другой арт. 

[Kotyarko_O]

просто прицелы разного типа ,один аркадный другой арт. 

А ну скинь внутренность этой xml из одного и второго прицела.

Edited September 11, 2014 by Kotyarko_O

[MEDNIKs]

У DM (Арт)

<sights.xml>
  <strategicMode>1</strategicMode>
  <sniperMode>1</sniperMode>
  <positionFixArcade>False</positionFixArcade>
  <positionFixSniper>False</positionFixSniper>
  <positionFixStrategic>False</positionFixStrategic>
  <positionFixPostmortem>False</positionFixPostmortem>
  <settingsFix>False</settingsFix>
  <aimScale>1.0</aimScale>
  <flags>dm</flags>
</sights.xml>

а у корейского (выбираю как аркадный)

 

<sights.xml>
  <strategicMode>-1</strategicMode>
  <sniperMode>2</sniperMode>
  <positionFixArcade>True</positionFixArcade>
  <positionFixSniper>True</positionFixSniper>
  <positionFixStrategic>True</positionFixStrategic>
  <positionFixPostmortem>True</positionFixPostmortem>
  <settingsFix>True</settingsFix>
  <aimScale>1.0</aimScale>
  <flags>ext,</flags>
</sights.xml>

Edited September 11, 2014 by MEDNIKs

[AlaCraD]

У DM (Арт)

<sights.xml>

  <strategicMode>1</strategicMode>

  <sniperMode>1</sniperMode>

  <positionFixArcade>False</positionFixArcade>

  <positionFixSniper>False</positionFixSniper>

  <positionFixStrategic>False</positionFixStrategic>

  <positionFixPostmortem>False</positionFixPostmortem>

  <settingsFix>False</settingsFix>

  <aimScale>1.0</aimScale>

  <flags>dm</flags>

</sights.xml>

а у корейско го (выбираю как аркадный)

 

<sights.xml>

  <strategicMode>-1</strategicMode>

  <sniperMode>2</sniperMode>

  <positionFixArcade>True</positionFixArcade>

  <positionFixSniper>True</positionFixSniper>

  <positionFixStrategic>True</positionFixStrategic>

  <positionFixPostmortem>True</positionFixPostmortem>

  <settingsFix>True</settingsFix>

  <aimScale>1.0</aimScale>

  <flags>ext,</flags>

</sights.xml>

А сколько у тебя прицелов (арт и аркад) в паке?

[MEDNIKs]

 

 

А сколько у тебя прицелов (арт и аркад) в паке?

Пока штук 7 аркадных и штук 5 арт!А что?

[Kotyarko_O]

@MEDNIKs, за что вообще отвечает этот скрипт? Он работает просто как фикс, чтобы не съезжал прицел?