Скрипты Inno Setup. Помощь и советы [часть 3]

[Gnom_aka_Lexander]

R3Pa4eK, Я-ж на руборде написал - искать нужно

Вот,

на базе этого можно построить то, что тебе нужно.

Вот

еще.

[STRAYKER]

Как изменить цвет текста

Как сделать чтобы перед началом установки появлялась картинка

[serg aka lain]

vint56, если {app}=c:\Games\Call of Duty: Black Ops и файлы Call of Duty- Black Ops_disk1.sim, SimPack.exe расположены рядом с инсталлятором, то:



Код:

Код: Выделить всё

#define SRCFILE '{src}\Call of Duty- Black Ops_disk1.sim'
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
[Run]
Filename: "{src}\SimPack.exe"; Parameters: "x ""{#SRCFILE}"" ""{app}"" -g42700 -kD9AD91A8DB3258C4C8210D505DCB0F70 -n1"; WorkingDir: {src}; StatusMsg: Распаковка файлов...; Flags: waituntilterminated HideWizard;
Filename: "{src}\SimPack.exe"; Parameters: "x ""{#SRCFILE}"" ""{app}"" -g42701 -kBAD1EC97BB5FB39A08D70AEDAB239DDC -n1"; WorkingDir: {src}; StatusMsg: Распаковка файлов...; Flags: waituntilterminated HideWizard;
Filename: "{src}\SimPack.exe"; Parameters: "x ""{#SRCFILE}"" ""{app}"" -g42702 -kAC17FBAE013EB5D5A549EBF9907C78A5 -n1"; WorkingDir: {src}; StatusMsg: Распаковка файлов...; Flags: waituntilterminated HideWizard;
Filename: "{src}\SimPack.exe"; Parameters: "x ""{#SRCFILE}"" ""{app}"" -g42709 -kD9AD91A8DB3258C4C8210D505DCB0F70 -n1"; WorkingDir: {src}; StatusMsg: Распаковка файлов...; Flags: waituntilterminated HideWizard;
[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Vamp1re]

Как мне удалить все информеры в инсталляторе похожие на етот? :

(см.рис.)

[Vamp1re]

Лександер, У меня не хочет компилировать пишет Error: Indentifer name (Name := 'BitmapImage1'

[STRAYKER]

LinkOFF,

Код:

Код: Выделить всё

Скрипт для картинки

Код:

Код: Выделить всё

var
  MyPanel: TPanel;
procedure InitializeWizard();
begin
  MyPanel := TPanel.Create(WizardForm);
  with MyPanel do
  begin
    Align := alClient;
    Parent := WizardForm;
  end;
  with WizardForm.WizardBitmapImage do
  begin
    Align := alClient;
    Parent := MyPanel;
  end;
  with TLabel.Create(WizardForm) do 
  begin 
    AutoSize := WizardForm.WelcomeLabel1.AutoSize; 
    WordWrap := WizardForm.WelcomeLabel1.WordWrap; 
    Left := WizardForm.WelcomeLabel1.Left; 
    Top := WizardForm.WelcomeLabel1.Top; 
    Width := WizardForm.WelcomeLabel1.Width; 
    Height := WizardForm.WelcomeLabel1.Height; 
    Caption := WizardForm.WelcomeLabel1.Caption; 
    Font.Size := WizardForm.WelcomeLabel1.Font.Size; 
    Font.Style := WizardForm.WelcomeLabel1.Font.Style; 
    Font.Color := clWhite; 
    TransParent := True; 
    Parent := MyPanel;
  end; 
  with TLabel.Create(WizardForm) do 
  begin 
    AutoSize := WizardForm.WelcomeLabel2.AutoSize; 
    WordWrap := WizardForm.WelcomeLabel2.WordWrap; 
    Left := WizardForm.WelcomeLabel2.Left; 
    Top := WizardForm.WelcomeLabel2.Top; 
    Width := WizardForm.WelcomeLabel2.Width; 
    Height := WizardForm.WelcomeLabel2.Height; 
    Caption := WizardForm.WelcomeLabel2.Caption; 
    Font.Size := WizardForm.WelcomeLabel2.Font.Size; 
    Font.Style := WizardForm.WelcomeLabel2.Font.Style; 
    Font.Color := clWhite; 
    TransParent := True; 
    Parent := MyPanel;
  end;
  WizardForm.NextButton.BringToFront;
  WizardForm.CancelButton.BringToFront;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
  MyPanel.Hide;
  if CurPageID = wpWelcome then
    MyPanel.Show;
end;

[STRAYKER]

vint56,
Цитата vint56:



чтобы распаковка шла с диска а не копировать файлы на жёсткий диск

Скрипты Inno Setup. Помощь и советы [часть 3]

Где вы увидели копирование? В приведенных выше примерах и инсталлятор, и SimPack.exe, и Call of Duty- Black Ops_disk1.sim будут на CD/DVD/там, где вы расположите

А вот
Цитата vint56:



{tmp}

Скрипты Inno Setup. Помощь и советы [часть 3]

...это как раз с копированием на жесткий диск во временную папку



Попробуйте скомпилить скрипт из моего

Скрипты Inno Setup. Помощь и советы [часть 3]

и запустить его с C:\, D:\ итд, посмотреть что он показывает в начале..

[Gnom_aka_Lexander]

STRAYKER,

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

Код:

Код: Выделить всё

[Tasks]
Name: 1; Description: "Создать ярлык call of duty сетевая №1"; GroupDescription: Ярлыки;
Name: 2; Description: "Создать ярлык call of duty одиночная №2"; GroupDescription: Ярлыки;
[Icons]
Name: "{group}\ярлык call of duty сетевая №1"; Filename: "мой файл, к которому ярлык"; Tasks: 1;
Name: "{group}\ярлык call of duty одиночная №2"; Filename: "Мой файл, к которому ярлык 2"; Tasks: 2;

Так, както. А вообще, открой ISTool, там все это легко делается.

[STRAYKER]

R.i.m.s.k.y.,

Вы можете ету функцию интегрировать в скрипт ? Пожалуйста буду очень признателен.

[STRAYKER]

Как сделать установку игры быстрее с 25 мин до 10 мин ????

КАК сделать слайдшоу ???