[Kashtan007]

Добрый день. Нужна ваша помощь.
Мне нужно, чтобы на странице каталога была 2 чекбокса
-Удалить все старые моды
--Сохранить бекап старых модов
Выглядеть это должно так:


1 чекбокс, должен удалять содержимое в res_mods\0.9.2\* и удалять папку xvm по пути res_mods\xvm.
2 чекбокс, должен делать бекап папки res_mods, по пути ModPack\BackUp\res_mods, а после удаление репака возвращал бекап в папку res_mods.

Есть еще 1 проблема:

У меня в репаке есть файл "bin" и в папке куда я ставлю репак он тоже есть. В следствии чего если я ставлю репак, то файл заменяется, а когда удаляешь репак то файл тоже удаляется и не запускается игра. Как сделать, чтобы когда устанавливаешь репак, то файл "bin" из папки куда ставишь репак копировался по пути ModPack\OriginalFiles, а после удаление возвращался на свое место.

Как это реализовать? Заранее спасибо всем за помощь.

[kotyarko@fb]

Добрый день. Нужна ваша помощь. »

Здорова, танкист
з.ы. модПак - это не репак.
Есть неплохой пример.

А зачем тебе *.bin в инсталляторе?

[Kashtan007]

kotyarko@fb, ок. Можно ли сделать это же, только на странице "Каталог"?
Да я просто так bin написал, вообще нужно файл path, чтобы переносило.

[kotyarko@fb]

вообще нужно файл path, чтобы переносило. »

Тогда используй CurStepChanged - для переноса файла во время установки;
и CurUninstallStepChanged - для восстановления при удалении.

Можно ли сделать это же, только на странице "Каталог"? »

Можно. Меняй параметры Parent у каждого элемента, и сотри создание страницы.

[acer0072]

Добрый день. Помогите прикрутить к чекбоксу "Перейти на сайт" - ссылку. Заранее спс. Пример скрипта http://rghost.ru/57851446

[Dodakaedr]

acer0072, попробуйте так, не проверял:

Код:

[Code]
procedure LinkOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
  ShellExec('open', 'http://forum.oszone.net/thread-278998-147.html', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

Link := TNewCheckBox.Create(WizardForm);
  with Link do
  begin
    Parent := Component.Surface;
    Left := ScaleX(315);
    Top := ScaleY(200);
    Width := ScaleX(200);
    Height := ScaleY(17);
    Caption := 'Перейти на сайт';
    Checked:=True;
    OnClick:=@LinkOnClick;
  end;

[acer0072]

Спасибо. Но не сработало((. Это же отрабатывает на клик по ссылке. А мне нужен чекбокс.

[Dodakaedr]

Спасибо. Но не сработало(( »

Ну да)) а так?
Добавте это в секцию [Run]. Предыдущее удалите.

Код:

FileName: "http://forum.oszone.net/thread-278998-147.html"; Check: "LinkCheck"; Flags: shellexec skipifsilent

[Nightwishh]

Сдравствуйте. Хочу узнать правильно ли я выковарил нужный мне кусок кода для текстурирования чекбокса "Не создавать папку в меню"Пуск"

Код:

[Setup]
WizardSmallImageFile=btnimage.bmp
AllowNoIcons=true
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
DefaultGroupName=My Application
SolidCompression=true
Compression=none
InternalCompressLevel=ultra64
AlwaysRestart=true
OutputDir=.

[Icons]
Name: {group}\My Application; Filename: MyApp; WorkingDir: {app}

[ Code]
var
  C: integer;
  btnImgFile: AnsiString;
  CheckAccept: array of TNewCheckListBox;

procedure NoIcons(Sender: TObject);
 begin
   WizardForm.NoIconsCheck.Checked:= CheckAccept[3].Checked[0];
case WizardForm.GroupEdit.Enabled of
   True: begin
   WizardForm.GroupEdit.Color := clNavy;
   end;
   False: begin
   WizardForm.GroupEdit.Color := clSilver;
    end;
  end;
end;

procedure InitializeImage;
  begin
    ExtractTemporaryFile('{#SetupSetting("WizardSmallImageFile")}');
    btnImgFile := ExpandConstant('{tmp}\{#SetupSetting("WizardSmallImageFile")}');
    SetArrayLength(CheckAccept, 4);

  for C:=0 to getArrayLength(CheckAccept)-1 do begin
    CheckAccept[C] := TNewCheckListBox.Create(WizardForm);
    CheckAccept[C].BorderStyle := bsNone;
    CheckAccept[C].WantTabs := True;
    end;

  CheckAccept[3].Parent := WizardForm.NoIconsCheck.Parent;
  with WizardForm.NoIconsCheck do  begin
  CheckAccept[3].SetBounds(WizardForm.NoIconsCheck.Left,WizardForm.NoIconsCheck.Top,WizardForm.NoIconsCheck.Width,WizardForm.NoIconsCheck.Height)
  CheckAccept[3].AddCheckBoxEx(WizardForm.NoIconsCheck.Caption,'',0, False, True, True, True, nil, True);
  CheckAccept[3].OnClickCheck:=@NoIcons;
  Hide;  end;

  CheckAccept[3].LoadBtnBmpFromFile(btnImgFile);

end;

procedure InitializeWizard();
begin
  InitializeImage;//эту строчку вписывать строго в самом низу процедуры
end;

[Files]
Source: FilesBmp\DirBitmap.bmp; Flags: dontcopy
Source: FilesBmp\GroupBitmap.bmp; Flags: dontcopy
Source: btnimage.bmp; Flags: dontcopy
Source: WizModernImage-IS.bmp; Flags: dontcopy

Вроде работает, но может его можно попроще сделать?
P.S. Код выдран из скрипта "inserimag4" авторы: Gnom3 (aka Gnom, Лександер),Shegorat,Krinkels

[Kashtan007]

kotyarko@fb, можно ли сделать чекбоксы не круглые, а квадратные, чтобы можно было сразу выбрать оба варианта?