[rasim933]

1 *.exe файл авторана на первом диске, на остальных дисках, другие файлы. Соберу всё и запишу на 4 DVD5 диска. Сую первый диск, запускается авторан, жму на кнопу, требует диск 2. сую диск 2, жму на кнопку, установка начинается. авторан запускается с 1 диска.

[Johny777]

другие файлы »

а именно?

требует диск 2. сую диск 2, жму на кнопку »

Скажи сколько установщиков у тебя?
Если один, то запрос дика это работа инно и авторан тут никаким боком
вывод
если инсталяторов много, то авторан с кучей кнопок это сложно (для меня), тк игры на разных дисках.
Если установщик один, а в нём много игр, то опять же аторан нужен, но не такой, тк в конечном итоге выбор игры осуществляется в самом инсталлере а не через авторан

[rasim933]

Описать про другие файлы несмогу. Вот картинки -

1 картинка со всеми файлами - ,
2 картинка 1 папки -
3 картинка 2 папки - .

У меня 10 игр, у каждой игры есть свой екзешник (*.exe).
При нажатии одной кнопки в антолгии, запускается экзешник (*.exe) одной игры.

У меня такая фигня -

[Johny777]

rasim933,
ну теперь понятно
завтра попробую сделать

[rasim933]

УРРААААААРАРА!!!! Спасибо)))))) Наконец-то я смог нормально обьяснит ь)))) Буду ждать)))

[Johny777]

rasim933,
вот
http://rghost.ru/37205735
____________________________функционал:
я не знаю где и как ты раскидаешь игры, но это не важно.
на авторане 10 кнопок + кнопка "выход"
каждая их 10 запускает свой инсталлер из внешней папки
если какого-то инталлера нет, то кнопка отвечающая за его запуск не активна
____________________________внешне:
1. добавил скин
2. добавил фон
3. анимированный курсор на кнопках

PS: всё что тебе надо настроить это строки для каждой игры.
например:

#define Button_1 "Spider-Man (PC)"
#define Path_1 "{src}\1 Spider-Man - 1[PC]\setup.exe",
где "Spider-Man (PC)" - название кнопки и "{src}\1 Spider-Man - 1[PC]\setup.exe" - это путь к инсталлеру той самой игры относительно расположения авторана

[Iska]

Johny777, я тоже изначально понял так, что коллега rasim933 пересобрал каждую игру под InnoSetup и задача стоит в том, чтобы: а) сделать из кучи отдельных инсталляций InnoSetup одну единую (например, указав каждую игру отдельной задачей в инсталляции) и б) создать и прилепить к диску Autorun, который будет рисовать красивые картинки и запускать инсталляцию с заданными параметрами в зависимости от выбранных игр. Как оказалось, я ошибался в исходных данных.

[rasim933]

Ок. ЩЯс проверю.

Johny777, Гениально!!

Боже! Теперь прога требует ISSP. Ааааа. Теперь искать надо.

[Gnom_aka_Lexander]

Если можено, то пришли пожалста сюда коды кнопок. »

читать дальше »

Код:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);// Встроенная процедура
begin
  Confirm := False; // убираем окно потверждения нажатия на кнопку отмены
  Cancel := True;   // Разрешаем выход
end;

procedure NewButtonClick(Sender: TObject); // Обработчик кнопок.
begin
  case TNewButton(Sender).Tag of // Узнаем, какая кнопка нажата, по ее тегу
    0: MsgBox('Вы нажали кнопку 1',mbInformation,MB_OK);
    1: MsgBox('Вы нажали кнопку 2',mbInformation,MB_OK);
    2: MsgBox('Вы нажали кнопку 3',mbInformation,MB_OK);
    3: MsgBox('Вы нажали кнопку 4',mbInformation,MB_OK);
    4: MsgBox('Вы нажали кнопку 5',mbInformation,MB_OK);
    5: MsgBox('Вы нажали кнопку 6',mbInformation,MB_OK);
    6: MsgBox('Вы нажали кнопку 7',mbInformation,MB_OK);
    7: WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
  end;
end;

procedure InitializeWizard();
Var
  i:Integer; // локальная переменная, с ее помощью запустим цикл
begin
  with WizardForm do // Делаем сразу общее обращение (минимальноя оптимизация, но торморза из мелочей собираются)
  begin
    AutoScroll := False;
    ClientHeight := ScaleY(260); // размер в высоту
    ClientWidth := ScaleX(190); // размер в ширину

    OuterNotebook.Hide; //Скрываем основной слой, на котором лежат почти все элементы
    Bevel.Hide;   // Скрываем полоску внизу инсталла, чтоб не маячила
    NextButton.Hide;  // Скрываем кнопку далее, чтоб нельзя было добраться до нее табом
    
    for i:=0 to 7 do // Запускаем цикл от 0 до 7, то-есть то, что внутри цикла, будет сделано 8 раз
    begin
      with TNewButton.Create(WizardForm) do // Собственно создаем кнопку
      begin
        Parent := WizardForm;  // указываем где ей лежать, в данном случае - окно инсталлятора Inno
        SetBounds(ScaleX(10),ScaleY(10+i*30),ScaleX(170),ScaleY(25)); // Задаем координаты и размеры 10+i*30 - тут простая математика 10 от верха будет первая кнопка, остальные лягут с интервалом в 30, в зависимости от того, чему равна локольная переменная I в данный момент
          case i of // тут задаем текст кнопки, в зависимости от того, какая из них создается в данный момент
            0: Caption := 'Кнопка 1';
            1: Caption := 'Кнопка 2';
            2: Caption := 'Кнопка 3';
            3: Caption := 'Кнопка 4';
            4: Caption := 'Кнопка 5';
            5: Caption := 'Кнопка 6';
            6: Caption := 'Кнопка 7';
            7: Caption := 'Выход';
          end;
        OnClick := @NewButtonClick; // Адрес обработчика нажатия на кнопку.
        Tag := i; // очень важно не забыть указать тег, поскольку создаем объект неименованый. Тег будет i.
      end;
    end;
  end;
end;

Вот, вроде достаточно подробно описал.

[Johny777]

Лександер,
спасибо!
возьму твой пример
мне как раз на одной из страниц много кнопок надо, а код у тебя короткий
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Теперь у меня вопрос
допустим у меня свой кастомный(!) чекбокс для установки директикса и появляется он если снаружи есть директ икс
под ним идёт такой же, но только для визуала
ниже идут чекбоксы с самоизвлекающимися рахивами, собержащими в себе обнновления и появление их опять же зависит от двух факторов: 1 отмечен нужный компонент, 2 есть ли снаружи архив.

все эти чекбоксы очень нестабильны в своём появлении и в конечном итоге если какого то нет, то на форме они будут создаваться через однин или через 2
вопрос
как сделать добавление (какие добавятся в зависимости от...) ровно в столбик с расстоянием скажем в 10 пикселем между друг другом по вертикали
вот как я сделал пока что только с одним чекбоксом

читать дальше »

Код:

   
    /// создание формы звдач /// часть 2 из 2 /// начало
    begin
      TForm := CreateCustomForm();
      TForm.BorderIcons := [];
      // TForm.ClientWidth := ScaleX(256);
      // TForm.ClientHeight := ScaleY(256);
      TForm.Caption := 'Tasks';
      TForm.SetBounds(WizardForm.Left-TForm.Width-8  , WizardForm.Top, ScaleX(256), ScaleY(410));
      TForm.Color := clWindow;

      OKButton := TNewButton.Create(TForm);
      OKButton.Parent := TForm;
      OKButton.Width := ScaleX(75);
      OKButton.Height := ScaleY(23);
      OKButton.Left := TForm.ClientWidth - ScaleX(75 + 6 + 75 + 10);
      OKButton.Top := TForm.ClientHeight - ScaleY(23 + 10);
      OKButton.Caption := 'OK';
      OKButton.OnClick := @FormClose;
    
      TForm.ActiveControl := OKButton;
      /// задачи на форме /// начало
      If FileExists(ExpandConstant('{src}\outer\DirectX\DXSETUP.exe')) then
        begin
        DirectX_Checkbox := TCheckBox.Create(TForm);
          with DirectX_Checkbox do
          begin
            Parent := TForm;
            Caption := 'установить DirectX';
            Left := ScaleX(8);
            Top := ScaleY(8);
            Width := ScaleX(300);
            Height := ScaleY(15);
            Checked := False;
          end;
        end;
      /// конец
      TForm.Repaint;
    end;
    /// конец

для этой формы есть кнопка

читать дальше »

Код:

 
/// создание формы звдач /// часть 1 из 2 /// начало
var
  TForm: TSetupForm;
  OKButton, CancelButton: TNewButton;
  DirectX_Checkbox : TCheckBox;
  
function Run_DirectX: Boolean;
 begin
  Result:=DirectX_Checkbox.Checked;
   end;
  
procedure FormButtonClick(Sender: TObject);
begin
 TForm.Show;
end;
procedure FormClose(Sender: TObject);
begin
 TForm.Hide;
end;
/// конец