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

[Imitri7]

Vista-w, полистай страницы назад, я там несколько примеров выкладывал

[R.i.m.s.k.y.]

Лександер,
че то я не вкурил - в личку пршло уведомление что ты на ифолдере выложил два варианта инно ультра, а тут сообщения нету...

[Gnom_aka_Lexander]

R.i.m.s.k.y., Я удалил, там ошибка была, сейчас перезалил, пост тут. (http://forum.oszone.net/thread-148707-17.html)

[XNick]

Товарищи такой вопрос - какой скрипт нужен чтоб при подтверждении удаления игры, отмены установки игры и т.п., исправить эту проблему с белой полосой (см. скриншот)-> ((а использую скин tiger.cjstyle, пробовал это исправить в скине, ничего не помогло))...

[Vista-w]

XNick ее не удалить, пробуй применить Color.

[Vamp1re]

Кто знает как изменить цвет инсталятора?

[Vista-w]

Помогите плиизз!

1) Как изменить цвет текста тут http://s15.radikal.ru/i188/1012/69/ee84aaa45f0d.jpg

2) Как сделать картинку на весь инсталл в конце установки (финиш) тут http://s54.radikal.ru/i145/1012/38/cfd99efcd32c.jpg
Чтоб была новая картинка WizardImage
Люди помогите плизз, буду оч-оч признателен.
Вот скрипт
[Setup]
AppName=Fallout New Vegas
AppVerName=Fallout New Vegas
DefaultDirName={sd}\Games\Biohazard 4
DefaultGroupName=Fallout New Vegas
OutputDir=D:\B
OutputBaseFilename=setup
AllowNoIcons=yes
WizardImageFile=C:\Documents and Settings\Admin\Рабочий стол\How to RePack\Мои репаки\Fallout\Типография\WizardImage.bmp
WizardSmallImageFile=C:\Documents and Settings\Admin\Рабочий стол\How to RePack\Мои репаки\Fallout\Типография\WizardSmallImage.bmp
Compression=lzma/ultra
SolidCompression=no
DiskSpanning=yes
DiskSliceSize=727000000
UninstallLogMode=overwrite

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files\Inno Setup 5\Examples\MyProg.exe*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "C:\Documents and Settings\Admin\Рабочий стол\How to RePack\Мои репаки\Fallout\Типография\button.bmp"; DestDir: "{tmp}"; Flags: dontcopy
Source: "C:\Documents and Settings\Admin\Рабочий стол\How to RePack\Мои репаки\Fallout\Типография\DirBitmap.bmp"; DestDir: "{tmp}"; Flags: dontcopy
Source: "C:\Documents and Settings\Admin\Рабочий стол\How to RePack\Мои репаки\Fallout\Типография\logo.bmp"; DestDir: "{tmp}"; Flags: dontcopy

Source: "C:\Documents and Settings\Admin\Рабочий стол\How to RePack\Мои репаки\Fallout\Типография\WizardImage.bmp"; DestDir: "{tmp}"; Flags: dontcopy

[Icons]
Name: "{group}\Играть в Biohazard 4"; Filename: "{app}\game.exe"; WorkingDir: "{app}";
Name: "{group}\Настройка"; Filename: "{app}\SetupTool.exe"; WorkingDir: "{app}";
Name: "{group}\Удалить Biohazard 4"; Filename: "{uninstallexe}"; WorkingDir: "{app}"
Name: "{userdesktop}\Biohazard 4"; Filename: "{app}\game.exe"; Tasks: desktopicon; WorkingDir: "{app}";

[Registry]
Root: HKLM; Subkey: "Software\CAPCOM"; Flags: uninsdeletekeyifempty
Root: HKLM; Subkey: "Software\CAPCOM\biohazard 4"; Flags: uninsdeletekey
Root: HKLM; Subkey: "Software\CAPCOM\biohazard 4"; ValueType: string; ValueName: "PATH"; ValueData: "{app}"

[code]
const
ButtonWidth = 80; //Указываем размер кнопок
ButtonHeight = 23;

bidBack = 0;
bidNext = 1;
bidCancel = 2;
bidDirBrowse = 3;
bidGroupBrowse = 4;

var
ButtonPanel: array [0..4] of TPanel;
ButtonImage: array [0..4] of TBitmapImage;
ButtonLabel: array [0..4] of TLabel;

procedure ButtonLabelClick(Sender: TObject);
var
Button: TButton;
begin
ButtonImage[TLabel(Sender).Tag].Left:=0
case TLabel(Sender).Tag of
bidBack: Button:=WizardForm.BackButton
bidNext: Button:=WizardForm.NextButton
bidCancel: Button:=WizardForm.CancelButton
bidDirBrowse: Button:=WizardForm.DirBrowseButton
bidGroupBrowse: Button:=WizardForm.GroupBrowseButton
else
Exit
end
Button.OnClick(Button)
end;

procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ButtonLabel[TLabel(Sender).Tag].Enabled then
ButtonImage[TLabel(Sender).Tag].Left:=-ButtonWidth
end;

procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ButtonImage[TLabel(Sender).Tag].Left:=0
end;

procedure LoadButtonImage(AButton: TButton; AButtonIndex: integer);
var
Image: TBitmapImage;
Panel: TPanel;
Labl: TLabel;

begin
Panel:=TPanel.Create(WizardForm)
Panel.Left:=AButton.Left
Panel.Top:=AButton.Top
Panel.Width:=AButton.Width
Panel.Height:=AButton.Height
Panel.Tag:=AButtonIndex
Panel.Parent:=AButton.Parent
ButtonPanel[AButtonIndex]:=Panel

Image:=TBitmapImage.Create(WizardForm) //Рисунок который ложится на кнопку
Image.Width:=160 //Обязательно прописать оригинальный размер рисунка
Image.Height:=23
Image.Enabled:=False
Image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\button.bmp'))
Image.Parent:=Panel
ButtonImage[AButtonIndex]:=Image

with TLabel.Create(WizardForm) do begin
Tag:=AButtonIndex
Parent:=Panel
Width:=Panel.Width
Height:=Panel.Height
Transparent:=True
OnClick:=@ButtonLabelClick
OnDblClick:=@ButtonLabelClick
OnMouseDown:=@ButtonLabelMouseDown
OnMouseUp:=@ButtonLabelMouseUp
end

Labl:=TLabel.Create(WizardForm) //Текст кнопок
Labl.Left:=13 //Указываем положение текста
Labl.Top:=5
Labl.Autosize:=True
Labl.Alignment:=taCenter
Labl.Tag:=AButtonIndex
Labl.Transparent:=True
Labl.Font.Color:=clWhite //Цвет текста
Labl.Caption:=AButton.Caption
Labl.OnClick:=@ButtonLabelClick
Labl.OnDblClick:=@ButtonLabelClick
Labl.OnMouseDown:=@ButtonLabelMouseDown
Labl.OnMouseUp:=@ButtonLabelMouseUp
Labl.Parent:=Panel
ButtonLabel[AButtonIndex]:=Labl
end;

procedure UpdateButton(AButton: TButton;AButtonIndex: integer);
begin
ButtonLabel[AButtonIndex].Caption:=AButton.Caption
ButtonPanel[AButtonIndex].Visible:=AButton.Visible
ButtonLabel[AButtonIndex].Enabled:=Abutton.Enabled
end;

procedure LicenceAcceptedRadioOnClick(Sender: TObject);
begin
ButtonLabel[bidNext].Enabled:=True
end;

procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);
begin
ButtonLabel[bidNext].Enabled:=False
end;

procedure CurPageChanged1(CurPageID: Integer);
begin
UpdateButton(WizardForm.BackButton,bidBack)
UpdateButton(WizardForm.NextButton,bidNext)
UpdateButton(WizardForm.CancelButton,bidCancel)
end;

procedure InitializeWizard1();
begin
WizardForm.BackButton.Width:=ButtonWidth
WizardForm.BackButton.Height:=ButtonHeight

WizardForm.NextButton.Width:=ButtonWidth
WizardForm.NextButton.Height:=ButtonHeight

WizardForm.CancelButton.Width:=ButtonWidth
WizardForm.CancelButton.Height:=ButtonHeight

WizardForm.DirBrowseButton.Left:=337
WizardForm.DirBrowseButton.Width:=ButtonWidth
WizardForm.DirBrowseButton.Height:=ButtonHeight

WizardForm.GroupBrowseButton.Left:=337
WizardForm.GroupBrowseButton.Width:=ButtonWidth
WizardForm.GroupBrowseButton.Height:=ButtonHeight

WizardForm.LicenseAcceptedRadio.OnClick:=@LicenceAcceptedRadioOnClick

WizardForm.LicenseNotAcceptedRadio.OnClick:=@LicenceNotAcceptedRadioOnClick

ExtractTemporaryFile('button.bmp')
LoadButtonImage(WizardForm.BackButton,bidBack)
LoadButtonImage(WizardForm.NextButton,bidNext)
LoadButtonImage(WizardForm.CancelButton,bidCancel)
LoadButtonImage(WizardForm.DirBrowseButton,bidDirBrowse)
LoadButtonImage(WizardForm.GroupBrowseButton,bidGroupBrowse)
end;

procedure InitializeWizard2();
begin
with WizardForm do begin
with MainPanel do
Height := Height - 1;
with WizardSmallBitmapImage do begin
Left := 0;
Top := 0;
Height := 55; //Размер рисунка
Width := 497; //
end;
with PageNameLabel do begin
Font.Name := 'Tahoma'
Width := Width - 483; //Поставьте здесь значения на 0, если хотите вернуть текст
Left := Left + 483; //
end;
with PageDescriptionLabel do begin
Font.Name := 'Tahoma'
Width := Width - 483; //Поставьте здесь значения на 0, если хотите вернуть текст
Left := Left + 483; //
end;
end;
end;

const
Color = clblack;

procedure InitializeWizard3();
begin
WizardForm.PageNameLabel.Font.Color:=clWhite;
WizardForm.Font.Color:=clWhite;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
end;

procedure InitializeWizard4();
begin
ExtractTemporaryFile('DirBitmap.bmp');
WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\DirBitmap.bmp'));
WizardForm.SelectDirBitmapImage.AutoSize:=true;
WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\DirBitmap.bmp'));
WizardForm.SelectGroupBitmapImage.AutoSize:=true;
end;

var
LogoImage:TBitmapImage;
LogoLabel: TLabel;
LogoPanel: TPanel;

procedure InitializeWizard5();
begin
ExtractTemporaryFile('logo.bmp');
LogoPanel := TPanel.Create(WizardForm);
with LogoPanel do
begin
Parent := WizardForm;
Left := ScaleX(5);
Top := ScaleY(320);
Width := ScaleX(175);
Height := ScaleY(40);
BevelOuter := bvNone;
end;

LogoImage := TBitmapImage.Create(WizardForm);
with LogoImage do
begin
Parent := LogoPanel;
Left := ScaleX(0);
Top := ScaleY(0);
AutoSize:=true;
ReplaceColor:=clFuchsia;
ReplaceWithColor:=clBtnFace;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
end;

LogoLabel := TLabel.Create(WizardForm);
with LogoLabel do
begin
Parent := LogoPanel;
Width := LogoPanel.Width;
Height := LogoPanel.Height;
Transparent:=True;
end;
end;

var
WelcomeLabel1, WelcomeLabel2: TLabel;
BmpFile: TBitmapImage;

procedure InitializeWizard6();
begin
ExtractTemporaryFile('WizardImage.bmp');

BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardImage.bmp'));
BmpFile.SetBounds(0, 0, 497, 313);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.WelcomePage;

with WizardForm do
begin
WelcomeLabel1.Hide;
WelcomeLabel2.hide;
end;

WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do
begin
WelcomeLabel1.Alignment:=taCenter;
Left:= ScaleX(176);
Top:= ScaleY(66);
Width:= ScaleX(301);
Height:= ScaleY(71);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Name:='Arial'
Font.Size:= 12;
Font.Color:=ClWhite
Parent:= WizardForm.WelcomePage;
Caption:= WizardForm.WelcomeLabel1.Caption;
end;

WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do
begin
WelcomeLabel2.Alignment:=taCenter;
Top:= ScaleY(136);
Left:= ScaleX(176);
Width:= ScaleX(301);
Height:= ScaleY(300);
AutoSize:= false;
WordWrap:= true;
Font.Color:=ClWhite
Font.Name:='Tahoma'
Transparent:= true;
Parent:= WizardForm.WelcomePage;
Caption:= WizardForm.WelcomeLabel2.Caption;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
CurPageChanged1(CurPageID);
end;

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

[XNick]

Vista-w,
А можно по подробнее....

[Vista-w]

XNick,
Кинь скрипт. Посмотрим

[XNick]

Vista-w,
От скрипт который я использую - скин (http://rghost.ru/3812517)

[Vista-w]

XNick Windows 7 ?

[XNick]

Vista-w,
Ага она самая (х86)

[Gnom_aka_Lexander]

Рабочая ссылка на Inno Script Generator v.1.0.3.1 (http://www.freedownloadsplace.com/Inno-Script-Generator-Download-31392.htm)

[Imitri7]

Vista-w,
procedure InitializeWizard();
begin
WizardForm.Font.Color:=clWhite;
end;
1ый пример растягивания (http://forum.oszone.net/post-1575701.html#post1575701)
2ой пример растягивания (http://forum.oszone.net/post-1575712.html#post1575712)

[Sotonisto]

Помогите плиизз!»
Ну вот тебе готовый инсталл для Fallout New Vegas. Все нужные файлы в архиве.
По сути тут использовано наложение картинки почти как в 2 примере Imitri7'я (только с небольшими отличиями).
Надеюсь скрипт будет тебе полезен :)
http://img191.imageshack.us/img191/6461/60702434.jpg http://img641.imageshack.us/img641/2672/80742578.jpg
http://img338.imageshack.us/img338/4203/44431606.jpg http://img842.imageshack.us/img842/7927/53363167.jpg
СКАЧАТЬ АРХИВ (http://rghost.ru/3822079)
P.S.: Всех с наступающим! :smile:

[Raf96]

Когда я создаю свой скин получается фаил формата .skinproj и рядом лежит папка с прилагающими файлами а как сделать так чтоб формат был .sjstyles и рядом папки небыло???? Т. е . как скомпилировать скин??????

ВСЕХ ФОРУМЧАН С НОВЫМ ГОДОМ!!!!!!!!!! :oszone: :beer2: :00: :jump2:

[Raf96]

Когда я создаю свой скин получается фаил формата .skinproj и рядом лежит папка с прилагающими файлами а как сделать так чтоб формат был .sjstyles и рядом папки небыло???? Т. е . как скомпилировать скин?????? »
вопрос снят разобрался

[John1992on]

Делаю репак игры, и столкнулся с задачей - нужно в меню инсталятора сделать дополнительное окно выбора языка, а сам выбор должен осуществляется копированием файла из одной директории игры в другую, собственно, должен быть "RadioButton" в котором можно выбрать один из 4 языков, после нажатия кнопки "Next" выбранный файл должен скопироватся в определенную папку....

Объясните пожалуйста мне как новичку, как это делать, хотя бы концептуально... как я понял нужно сделать Компонент, но это правильно сделать, понять не могу, так как не могу изучить хелп программы из-за незнания англ.языка....

[Gnom_aka_Lexander]

John1992on,
[Languages]
Name: English; MessagesFile: compiler:Languages\English.isl
Name: German; MessagesFile: compiler:Languages\German.isl
Name: Russian; MessagesFile: compiler:Languages\Russian.isl
Name: Spanish; MessagesFile: compiler:Languages\Spanish.isl
[Files]
Source: FileEn.file; DestDir: {app}; Languages: English;
Source: FileGe.file; DestDir: {app}; Languages: German;
Source: FileRu.file; DestDir: {app}; Languages: Russian;
Source: FileSp.file; DestDir: {app}; Languages: Spanish;
тоесть языки сами являются именами компонентов, только не нужно отключать выбор языка на первой странице, и все будет :)

[death7lord]

бяда........
делаю репак Arcania, у меня он выходит примерно 4,5Гб
использовал пресомп-среп-арк(ультра2Гб)

в сети люди ужимали до 3,6 и требуется 256Мб

в чём прикол? как же так они сжимают?