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

[Ekspoint 2,122]

как после удаления создать папку?

[Kotyarko_O 1,906]

как после удаления создать папку?

Как и при установке, только использовать функции деинсталлятора.

Edited January 17, 2015 by Kotyarko_O

[AtotIK 580]

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

begin

  if CurUninstallStep = usPostUninstall then

  begin

    CreateDir(ExpandConstant('{app}\res_mods\0.9.5'));

  end;

end;

[Ekspoint 2,122]

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then
  begin
    CreateDir(ExpandConstant('{app}\res_mods\0.9.5'));
  end;
end;

не создает 

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

[AtotIK 580]

А почему у меня создаёт, гений ты наш?

Сначала создаётся родительский каталог, а потом уже все дочерние.

[Ekspoint 2,122]

А почему у меня создаёт, гений ты наш?

Сначала создаётся родительский каталог, а потом уже все дочерние.

уже норм,ошибка была 

[-zav- 188]

Подскажите где ошибка? Текст чекбоксов никак не хочет белым красится

  DeletekeshRadioButton:=TCheckBox.Create(WizardForm);
  DeletekeshRadioButton.Parent:=WizardForm.SelectDirPage;
  DeletekeshRadioButton.Checked:=False;
  DeletekeshRadioButton.Top:=ScaleY(262);
  DeletekeshRadioButton.Left := ScaleX(120);
  DeletekeshRadioButton.Width:=650;
  DeletekeshRadioButton.Font.Style:=[fsBold];
  DeletekeshRadioButton.Font.Size:=9;
  DeletekeshRadioButton.Font.Color := clWhite;
  DeletekeshRadioButton.Caption:='Очистить кэш игры'
  DeletekeshDescLabel:=TLabel.Create(WizardForm);
  DeletekeshDescLabel.Parent:=WizardForm.SelectDirPage;
  DeletekeshDescLabel.Left := ScaleX(125);
  DeletekeshDescLabel.Top:=DeletekeshRadioButton.Top + DeletekeshRadioButton.Height + 4;
  DeletekeshDescLabel.Width:=650;
  DeletekeshDescLabel.Height:=40;
  DeletekeshDescLabel.AutoSize:=False;
  DeletekeshDescLabel.Wordwrap:=True;
  DeletekeshDescLabel.Caption:=DeletekeshDescText;

  DeleteBackupRadioButton:=TCheckBox.Create(WizardForm);
  DeleteBackupRadioButton.Parent:=WizardForm.SelectDirPage;
  DeleteBackupRadioButton.Checked:=False;
  DeleteBackupRadioButton.Top:=ScaleY(302);
  DeleteBackupRadioButton.Left := ScaleX(120);
  DeleteBackupRadioButton.Width:=650;
  DeleteBackupRadioButton.Font.Style:=[fsBold];
  DeleteBackupRadioButton.Font.Size:=9;
  DeleteBackupRadioButton.Font.Color := clWhite;
  DeleteBackupRadioButton.Caption:='Удалить все файлы Backup'
  DeleteBackupDescLabel:=TLabel.Create(WizardForm);
  DeleteBackupDescLabel.Parent:=WizardForm.SelectDirPage;
  DeleteBackupDescLabel.Left := ScaleX(125);
  DeleteBackupDescLabel.Top:=DeleteBackupRadioButton.Top + DeleteBackupRadioButton.Height + 4;
  DeleteBackupDescLabel.Width:=650;
  DeleteBackupDescLabel.Height:=40;
  DeleteBackupDescLabel.AutoSize:=False;
  DeleteBackupDescLabel.Wordwrap:=True;
  DeleteBackupDescLabel.Caption:=DeleteBackupDescText;

Уже догадался....    Вместо   TCheckBox    надо  TNewCheckBox Edited January 17, 2015 by -zav-

[Ekspoint 2,122]

Подскажите где ошибка? Текст чекбоксов никак не хочет белым красится

чек.jpg

  DeletekeshRadioButton:=TCheckBox.Create(WizardForm);
  DeletekeshRadioButton.Parent:=WizardForm.SelectDirPage;
  DeletekeshRadioButton.Checked:=False;
  DeletekeshRadioButton.Top:=ScaleY(262);
  DeletekeshRadioButton.Left := ScaleX(120);
  DeletekeshRadioButton.Width:=650;
  DeletekeshRadioButton.Font.Style:=[fsBold];
  DeletekeshRadioButton.Font.Size:=9;
  DeletekeshRadioButton.Font.Color := clWhite;
  DeletekeshRadioButton.Caption:='Очистить кэш игры'
  DeletekeshDescLabel:=TLabel.Create(WizardForm);
  DeletekeshDescLabel.Parent:=WizardForm.SelectDirPage;
  DeletekeshDescLabel.Left := ScaleX(125);
  DeletekeshDescLabel.Top:=DeletekeshRadioButton.Top + DeletekeshRadioButton.Height + 4;
  DeletekeshDescLabel.Width:=650;
  DeletekeshDescLabel.Height:=40;
  DeletekeshDescLabel.AutoSize:=False;
  DeletekeshDescLabel.Wordwrap:=True;
  DeletekeshDescLabel.Caption:=DeletekeshDescText;

  DeleteBackupRadioButton:=TCheckBox.Create(WizardForm);
  DeleteBackupRadioButton.Parent:=WizardForm.SelectDirPage;
  DeleteBackupRadioButton.Checked:=False;
  DeleteBackupRadioButton.Top:=ScaleY(302);
  DeleteBackupRadioButton.Left := ScaleX(120);
  DeleteBackupRadioButton.Width:=650;
  DeleteBackupRadioButton.Font.Style:=[fsBold];
  DeleteBackupRadioButton.Font.Size:=9;
  DeleteBackupRadioButton.Font.Color := clWhite;
  DeleteBackupRadioButton.Caption:='Удалить все файлы Backup'
  DeleteBackupDescLabel:=TLabel.Create(WizardForm);
  DeleteBackupDescLabel.Parent:=WizardForm.SelectDirPage;
  DeleteBackupDescLabel.Left := ScaleX(125);
  DeleteBackupDescLabel.Top:=DeleteBackupRadioButton.Top + DeleteBackupRadioButton.Height + 4;
  DeleteBackupDescLabel.Width:=650;
  DeleteBackupDescLabel.Height:=40;
  DeleteBackupDescLabel.AutoSize:=False;
  DeleteBackupDescLabel.Wordwrap:=True;
  DeleteBackupDescLabel.Caption:=DeleteBackupDescText;

у чекбокса ни как не изменить 

попробуй убрать название чека и на его место NewStaticText

[Kotyarko_O 1,906]

@-zav-, на скрине текст разного размера и стиля, а в коде прописано одинаково. Код вообще отсюда?

[-zav- 188]

@-zav-, на скрине текст разного размера и стиля, а в коде прописано одинаково. Код вообще отсюда?

Отсюда. Просто разные варианты тыкал и на чем остановился то и заскринил  )

Теперь так

Но всёравно надписи у  TNewCheckBox  и  TNewRadioButton   разные

хотя в обоих вариантах размер и жирность обинаковые.

 

        хм.. странно... другие цвета всё равно не поставить

хотел clYellow   или  clLime  зафигачить..

Edited January 17, 2015 by -zav-

[Kotyarko_O 1,906]

хм.. странно... другие цвета всё равно не поставить

А и не поставишь. Стандартные чекбоксы не разрешат.

Рисуй рядом с ними объект, который и будет содержать текст.

Edited January 17, 2015 by Kotyarko_O

[-zav- 188]

А и не поставишь. Стандартные чекбоксы не разрешат.

Рисуй рядом с ними объект, который и будет содержать текст.

  ну почему обязательно столько гемора надо....

[Ekspoint 2,122]

так как при удалении скопировать файл из одной папки в другую?

к примеру для файла paths.xml

Edited January 18, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫

[Kotyarko_O 1,906]

, ты что, впервые файл копируешь?

Не знаешь функций деинсталлятора?

[Ekspoint 2,122]

, ты что, впервые файл копируешь?

Не знаешь функций деинсталлятора?

уже догадался 

[AtotIK 580]

уже догадался 

Тогда ЗАЧЕМ было спрашивать?

[Ekspoint 2,122]

Тогда ЗАЧЕМ было спрашивать?

не знал как функция копирования называлась 

кстати,правильно?

procedure Paths();
begin
  CreateDir(ExpandConstant('{app}\{#MyAppName}\backup'));
  FileCopy(ExpandConstant('{app}\paths.xml'), ExpandConstant('{app}\{#MyAppName}\backup\paths.xml'), False);
end;
procedure CurStepChanged7(CurStep: TSetupStep);
begin
  If CurStep=ssInstall then
begin
  Paths();
end;
end;

Edited January 18, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫

[Kotyarko_O 1,906]

кстати,правильно?

Есть ошибки?

Не работает?

Самим догадываться?

Edited January 18, 2015 by Kotyarko_O

[-zav- 188]

как правильно объединить две   function InitializeSetup():boolean;

как с  InitializeWizard

Procedure InitializeWizard();
begin
 InitializeWizard0();
 InitializeWizard1();
 InitializeWizard2();
end;

  не прокатывает

[young G 23]

Подскажите,почему выдает ошибку,когда вроде бы даже нету такого слова,как в ошибке: