[tiylar]

Привет всем я навичёк обьясните пожалуста как пользоватся Inno Setup. Можно ли с помошью Inno Setup установить любую программу?

[Sotonisto]

Floopik,

1. У кого-нибудь есть такой music button? 2. У кого-нибудь есть такой скин? 3. Как сделать такую панельку? »

1. Скачай этот архив.
2. А ты можешь и сам такой скин сделать .
3. Эта панелька нарисованная - на каждой странице bmp рисунок. PSD исходник для фотошота можно качнуть отсюда.

Автор оигинального скрипта YURSHAT. По всем вопросам обращайся к нему

Привет всем я навичёк обьясните пожалуста как пользоватся Inno Setup. Можно ли с помошью Inno Setup установить любую программу? »

Не та тема Тут обсуждение написания скриптов, тебе нужно сюда.

----

Всем, кто знает как такое cделать.
Есть оригинальный Half-Life c модом Paranoia. Для запуска мода нужно запустить exe фал халфы с такими параметрами -game paranoia -32bpp -gl.
Как сделать что бы во время создания ярлыка на рабочем столе эти параметры "дописывались" к нему. Примерно что б было вот так D:/Half-Life Paranoia/hl.exe -game paranoia -32bpp -gl?

[baikalchanen]

Я тоже давно искал скрипт как в инстале Resident Evil 4 от YURSHAT,но при запуске даёт такую вот ошибку,как исправить?

[vint56]

baikalchanen, у тебя нету progress1.bmp если все картинки лежат в папке image то должно быть так
Source: Image\{#PB_ImageFile}; DestDir: "{tmp}"; Flags: recursesubdirs ignoreversion

[Sotonisto]

baikalchanen, у тебя установлен Preprocessor?
Правильно указал путь к файлу?

[baikalchanen]

Sotonisto, vint56,
Так эту значит проблему я решил.
Появились новые проблемы!!!Вот они!!!
1. -это нужно убрать!
2.-Языки озвучки тоже нужно убрать!(Под стрелочкой ничего не надо,но на всякий случай ,если не трудно тоже как убрать если DirectX ненужен?(НЕОБЯЗАТЕЛЬНО!!!)
3.-Вот какая ошибка вылезла при попытке обновления DirectX (Тут конечно видно что написано "Неверно задано имя папки",но я не пойму как исправить?
Скрипт прикрепил ниже!!!

[Floopik]

Sotonisto сэнкс за ответ.

[Sotonisto]

baikalchanen,
1. Проблема в этом Caption:= ExpandConstant('{cm:Welcome1}')+#13+('{#MyAppName}');. Удали у себя +#13+('{#MyAppName}')
2. Удали эту секцию.

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

Код:

//************************************************ [Начало - Язык игры] ***************************************************//

function Lang: Boolean;
begin
  Result:= rus;
end;

procedure ImageClick(Sender: TObject);
begin
  case TLabel(Sender).Tag of
   0: begin
        pnl_ru.BevelInner:= bvLowered;
        pnl_ru.Top:= ScaleY(381);
        pnl_ru.Left:= ScaleX(320);
        pnl_ru.Width:= ScaleX(42);
        pnl_ru.Height:= ScaleY(30);

        pnl_us.BevelInner:= bvSpace;
        pnl_us.Top:= ScaleY(381);
        pnl_us.Left:= ScaleX(380);
        pnl_us.Width:= ScaleX(46);
        pnl_us.Height:= ScaleY(33);
        LanguageLabel2.Caption:= 'Русский';
        rus:= True;
      end;
   1: begin
        pnl_ru.BevelInner:= bvSpace;
        pnl_ru.Top:= ScaleY(381);
        pnl_ru.Left:= ScaleX(319);
        pnl_ru.Width:= ScaleX(46);
        pnl_ru.Height:= ScaleY(33);

        pnl_us.BevelInner:= bvLowered;
        pnl_us.Top:= ScaleY(381);
        pnl_us.Left:= ScaleX(381);
        pnl_us.Width:= ScaleX(42);
        pnl_us.Height:= ScaleY(30);

        LanguageLabel2.Caption:= 'Английский';
        rus:= False;
      end;
  end;
end;

procedure InitializeWizard5();
begin
  ExtractTemporaryFile('ru.bmp');
  ExtractTemporaryFile('us.bmp');

  LanguageLabel1 := TLabel.Create(WizardForm);
  with LanguageLabel1 do
    begin
      Parent := WizardForm.SelectDirPage;
      Top:= ScaleY(390);
      Left:= ScaleX(90);
      Width:= ScaleX(50);
      Height:= ScaleY(15);
      Font.Name:= 'Georgia'
      Font.Size:= 8;
      Font.Style:= [fsBold, fsItalic];
      Transparent:= True;
      Caption:= ExpandConstant('{cm:Language}');
    end;

  LanguageLabel2 := TLabel.Create(WizardForm);
  with LanguageLabel2 do
    begin
      Parent := WizardForm.SelectDirPage;
      Top:= ScaleY(390);
      Left:= ScaleX(250);
      Width:= ScaleX(50);
      Height:= ScaleY(15);
      Font.Name:= 'Georgia'
      Font.Size:= 8;
      Font.Style:= [fsBold, fsItalic];
      Font.Color:= ClYellow;
      Transparent:= True;
      Caption:= 'Русский';
    end;

  pnl_ru:= TPanel.Create(WizardForm);
  with pnl_ru do
    begin
      BevelInner:= bvLowered;
      Top:= ScaleY(381);
      Left:= ScaleX(320);
      Width:= ScaleX(42);
      Height:= ScaleY(30);
      Parent:= WizardForm.SelectDirPage;
      with TBitmapImage.Create(pnl_ru) do
        begin
          Align:= alClient;
          Bitmap.LoadFromFile(ExpandConstant('{tmp}\ru.bmp'));
          Stretch:= True;
          Parent:= pnl_ru;
        end;
      with TLabel.Create(pnl_ru) do
        begin
          Align:= alClient;
          Transparent:= True;
          OnClick:= @ImageClick;
          Parent:= pnl_ru;
          Cursor:= crHand;
          Tag:= 0;
        end;
    end;

  pnl_us:= TPanel.Create(WizardForm);
  with pnl_us do
    begin
      BevelInner:= bvSpace;
      Top:= ScaleY(381);
      Left:= ScaleX(380);
      Width:= ScaleX(46);
      Height:= ScaleY(33);
      Parent:= WizardForm.SelectDirPage;
      with TBitmapImage.Create(pnl_us) do
        begin
          Align:= alClient;
          Bitmap.LoadFromFile(ExpandConstant('{tmp}\us.bmp'));
          Stretch:= True;
          Parent:= pnl_us;
        end;
      with TLabel.Create(pnl_us) do
        begin
          Align:= alClient;
          Transparent:= True;
          OnClick:= @ImageClick;
          Parent:= pnl_us;
          Cursor:= crHand;
          Tag:= 1;
        end;
    end;
  rus:= True;
end;

//************************************************ [Конец - Язык игры] ***************************************************//

Во время удаления секции ты удалишь InitializeWizard5(), так что после ее удаления тебе необходимо:
- Найди в скрипте (Ctr+F в помощь) InitializeWizard6 и переименуй его в InitializeWizard5.
- Прямо в конце скрипта есть это:

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

Код:

Procedure InitializeWizard();
begin
  InitializeWizard1();
  InitializeWizard2();
  InitializeWizard3();
  InitializeWizard4();
  InitializeWizard5();
  InitializeWizard6();
end;

Удали оттуда InitializeWizard6(). Также не забудь "подправить" [CustomMessages].
3. DirectX должен находится в папке рядом с готовым инсталлом (у меня папка директа была в паке support, поэтому к нему и был такой путь - support\directx\dxsetup.exe).

Так же:
1. Ты не используешь текстуру прогресс-бара. Удали секцию кода за который она отвечает и картинку прогресс-бара.
2. Вниматель посмотри секцию [Icons] - там все для RE4, а не для Rainbow Six

P.S.: Подправь скрипт и все будет "пучком"

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

[baikalchanen]

Sotonisto,ОГРОМНЕЙШЕЕ СПАСИБО!!!!
Ты просто афигенно помог,скоро буду править скрипт!!!!

[baikalchanen]

Sotonisto, Вот так не задача!!!DirectX всё равно никак не хочет обновляться!"Неверно задано имя папки",я уже и положил его в папку к инсталу.