» Inno Setup (создание инсталяционных пакетов)

В шапке есть скрипт для описания компонентов.

Возможно ли в поле описания компонентов вставить изображения отдельное для каждого компонента?


скрипт следующий:

[more]
function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external 'enabledesc@files:descctrl.dll stdcall';

function disabledesc(): BOOL; external 'disabledesc@files:descctrl.dll stdcall';

var
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;

procedure DeinitializeSetup();
begin
disabledesc();
end;

procedure InitializeWizard();
begin
WizardForm.TYPESCOMBO.Visible:= false;
WizardForm.ComponentsList.Height :=120 //высота
WizardForm.ComponentsList.Top :=42 //отступ сверху
WizardForm.ComponentsList.Width := 420//ширина
InfoPanel := TPanel.Create(WizardForm);
InfoPanel.Parent := WizardForm.SelectComponentsPage;
InfoPanel.Caption := '';
InfoPanel.Top := 165//WizardForm.ComponentsList.Top;
InfoPanel.Width := 418//ScaleX(200);
InfoPanel.Height := 50//WizardForm.ComponentsList.Height;
InfoPanel.BevelInner := bvRaised;
InfoPanel.BevelOuter := bvLowered;
Info := TNewStaticText.Create(WizardForm);
Info.Parent := InfoPanel;
Info.AutoSize := False;
Info.Left := 5;
Info.Width := 408;
Info.Top := 5;
Info.Height := 40;
Info.Caption := 'Переместите ваш указатель мыши на компоненты чтобы увидеть их описание.';
Info.WordWrap := true;
enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
'данный компонент выполняет копирование папки "res" и создает папку "res_rezerv_cop" (как-то так) Для отката всех изменений внесенных инсталлятором достаточно удалить папку "res" а папку "res_rezerv_cop";'+ // SoundUnit\eng
'Французская озвучка;'+ // SoundUnit\fra
'Немецкая озвучка;'+ // SoundUnit\deu
'Итальянская озвучка;'+ // SoundUnit\ita
'Испанская озвучка;' // SoundUnit\spa
);
end;
[/more]

всем заранее спс.

Спасибо Gnom3!

Цитата:

Где взять реестр с F.E.A.R. 3?

В реестре. © КЭП

Brabusdark

Цитата:

можешь кто нибудь нормально растянуть изображение в скрипте(WizardSmallImage и WizardImage)

Пробуй: http://rghost.ru/11988321
REALYAROHA
[more=Вроде оно][code]
var
WelcomeLabel1, WelcomeLabel2, FinishedLabel, FinishedHeadingLabel: TLabel;

Procedure InitializeWizard();
Begin
//ExtractTemporaryFile('img2.bmp'); //если нужно разные визардимадже - раскомментировать
//WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\img2.bmp'));//если нужно разные визардимадже - раскомментировать

//страница приветствия//
WizardForm.WizardBitmapImage.Width:=193 //ширина визврдимадже
WizardForm.WelcomeLabel1.Left:=WizardForm.WelcomeLabel1.Left-50; //положение текста (если нужно стандартное надо убрать цифры)
WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width+50;
WizardForm.WelcomeLabel1.top:=WizardForm.WelcomeLabel1.top+50;
WizardForm.WelcomeLabel2.top:=WizardForm.WelcomeLabel2.top+50;
WizardForm.WelcomeLabel2.Left:=WizardForm.WelcomeLabel2.Left-50;
WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width+50; //
//страница завершения
WizardForm.WizardBitmapImage2.Width := 93;//ширина визардимадже2
WizardForm.FinishedLabel.Left:=WizardForm.FinishedLabel.Left-50; //положение текста (если нужно стандартное надо убрать цифры)
WizardForm.FinishedLabel.Width:=WizardForm.FinishedLabel.Width+50;
WizardForm.FinishedHeadingLabel.Left:=WizardForm.FinishedHeadingLabel.Left-50;
WizardForm.FinishedHeadingLabel.Width:=WizardForm.FinishedHeadingLabel.Width+50; //
WizardForm.FinishedLabel.top:=WizardForm.FinishedLabel.top+50;
WizardForm.FinishedHeadingLabel.top:=WizardForm.FinishedHeadingLabel.top+50;
//

WelcomeLabel1:= TLabel.Create(WizardForm);
WelcomeLabel1.AutoSize:= False;
with WizardForm.WelcomeLabel1 do
WelcomeLabel1.SetBounds(Left, Top, Width, Height);
WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font
WelcomeLabel1.Font.Color:= clred; //цвет текста
WelcomeLabel1.Transparent:= True;
WelcomeLabel1.WordWrap:= true;
WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption;
WelcomeLabel1.Parent:= WizardForm.WelcomePage

WelcomeLabel2:= TLabel.Create(WizardForm);
WelcomeLabel2.AutoSize:= False;
with WizardForm.WelcomeLabel2 do
WelcomeLabel2.SetBounds(Left, Top, Width, Height);
WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font
WelcomeLabel2.Font.Color:= clred; //цвет текста
WelcomeLabel2.Transparent:= True;
WelcomeLabel2.WordWrap:= true;
WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption;
WelcomeLabel2.Parent:= WizardForm.WelcomePage

FinishedHeadingLabel:= TLabel.Create(WizardForm);
FinishedHeadingLabel.AutoSize:= False;
with WizardForm.FinishedHeadingLabel do
FinishedHeadingLabel.SetBounds(Left, Top, Width, Height);
FinishedHeadingLabel.Font:= WizardForm.FinishedHeadingLabel.Font
FinishedHeadingLabel.Font.Color:= clred; //цвет текста
FinishedHeadingLabel.Transparent:= True;
FinishedHeadingLabel.WordWrap:= true;
FinishedHeadingLabel.Caption:= WizardForm.FinishedHeadingLabel.Caption;
FinishedHeadingLabel.Parent:= WizardForm.FinishedPage

FinishedLabel:= TLabel.Create(WizardForm);
FinishedLabel.AutoSize:= False;
with WizardForm.FinishedLabel do
FinishedLabel.SetBounds(Left, Top, Width, Height);
FinishedLabel.Font:= WizardForm.FinishedLabel.Font
FinishedLabel.Font.Color:= clred; //цвет текста
FinishedLabel.Transparent:= True;
FinishedLabel.WordWrap:= true;
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
FinishedLabel.Parent:= WizardForm.FinishedPage

WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.FinishedHeadingLabel.Hide;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
end;[/more]
Alex 17
Правила читай!

Цитата:

2.5. Что нужно внести в реестр для YYYY игры/программы.

Цитата:

4.3. Если Вы хотите добавить картинку, то используйте сторонние ресурсы, которые могут предоставить ссылки на небольшие превьюшки

Подскажите пож-ста. Начал делать скрипт на исдоне 0,5 финал
сжал файл по принципу зип--прекомп--среп-арк
вот ошибка http://s014.radikal.ru/i326/1106/85/ed2906fea91a.jpg
имеются такие строки

Цитата:

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data.arc'), ExpandConstant('{app}\'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISSRepExtract ( 0, 0, ExpandConstant('{app}\data.srp'), ExpandConstant('{app}\data.pcf'), true ) then break;
if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'), ExpandConstant('{app}\data.7z'), true ) then break;
if not IS7ZipExtract ( 0, 0, ExpandConstant('{app}\data.7z'), ExpandConstant('{app}\base'), true, '' ) then break;

innonewbie
все спасибо все прекрасно идет


Добавлено:
OXXXXYGEN
процентов не многовато у тебя?
хотя дело в precompe

Brabusdark
проценты у него из-за тестового прогона.
+есть компоненты.
OXXXXYGEN
я вообще ничего не понял из того что ты сказал.

OXXXXYGEN
Версию precomp`a проверьте какой упаковывали

Как проверить на каком из чекбоксов щелкнули мышкой?

Код:
procedure OnClick(Sender: TObject);
begin
if WizardForm.ComponentsList.Checked[5]=true then WizardForm.ComponentsList.Checked[10]:=false;
end;

Sergey_Demchuk, Думаю, както так должно сработать:

Код: procedure OnClick(Sender: TObject);
begin
WizardForm.ComponentsList.Checked[5]=not WizardForm.ComponentsList.Checked[10];
WizardForm.ComponentsList.Checked[10]=not WizardForm.ComponentsList.Checked[5];
end;

Gnom3
Так я и пробовал.
Только результатом есть то что обьект 5 вообще нельзя выбрать после того как выбран обьект 11. И кроме того, нету возможности оставить оба компонента невыбранными.

Sergey_Demchuk
А пятый и десятый эксклюзивами друг-друга не сделать? и повесить оба на один чекбокс, чтоб можно было невыбрать оба - так не проще сделать будет? Както так:
[more=код]
Код: [Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Components]
Name: a; Description: a
Name: a\a; Description: a\a; Flags: exclusive
Name: a\a\b; Description: a\a\b
Name: a\a\c; Description: a\a\c
Name: a\a\d; Description: a\a\d
Name: a\b; Description: a\b; Flags: exclusive
Name: a\b\e; Description: a\b\e
Name: a\b\f; Description: a\b\f
Name: a\b\g; Description: a\b\g
Name: a\b\a; Description: a\b\a
Name: a\b\h; Description: a\b\h

Не подходит, они у меня из разных групп и уже поделены.
Тут как бы получается надо определить на каком именно чекбоксе щелкнули, оно ж передается в обьект Sender, но обработать его не получается.

Как добавить такой текст? -

Внесите изменения в этот скрип:


[more=скрипт...] #define MyAppName "F.E.A.R. 3"
#define NeedSize "315"
#include "Module\Components.iss"
#include "Module\PlayWith.Texture.iss"


[Setup]
AppName=F.E.A.R. 3
AppVerName=F.E.A.R. 3
DefaultDirName={pf}\FreeArc Example
DirExistsWarning=no

OutputBaseFilename=FreeArc_Example-Ext
OutputDir=.
VersionInfoCopyright=Bulat Ziganshin, Victor Dobrov, SotM, CTACKo, Shegorat

WizardImageFile=Files\WizardImage.bmp
WizardSmallImageFile=Files\WizardSmallImage.bmp

[UninstallDelete]
Type: filesandordirs; Name: {app}


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

[CustomMessages]
rus.Welcome2=Программа установит игру {#MyAppName} на Ваш компьютер.%n%nРекомендуется закрыть антивирусные пакеты, а также все прочие приложения перед тем, как продолжить.

[Files]
Source: Files\bass.dll; DestDir: {tmp}; Flags: dontcopy
Source: Files\sound.mp3; DestDir: {tmp}; Flags: dontcopy
Source: Files\unarc.dll; DestDir: {tmp}; Flags: dontcopy
Source: Files\InnoCallback.dll; DestDir: {tmp}; Flags: dontcopy
Source: Files\facompress.dll; DestDir: {tmp}; Flags: dontcopy
Source: Files\Logo.bmp; DestDir: {tmp}; Flags: dontcopy
Source: Files\papka.bmp; DestDir: {tmp}; Flags: dontcopy
Source: Files\Finishe.bmp; DestDir: {tmp}; Flags: dontcopy
Source: "Files\sound.mp3"; DestDir: "{tmp}"; Flags: dontcopy noencryption nocompression
Source: "Files\MusicButton.bmp"; DestDir: "{tmp}"; Flags: dontcopy
Source: "Files\bass.dll"; DestDir: "{tmp}"; Flags: dontcopy
;Source: "C:\Program Files\EA Games\Need for Speed Undercover\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;


[Code]
var
WelcomeLabel1, WelcomeLabel2, FinishedLabel, FinishedHeadingLabel: TLabel;
PageNameLabel, PageDescriptionLabel: TLabel;


procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
end;

procedure Labels();
begin
WelcomeLabel1:= TLabel.Create(WizardForm);
WelcomeLabel1.AutoSize:= False;
with WizardForm.WelcomeLabel1 do
//координаты WelcomeLabel1
WelcomeLabel1.SetBounds(ScaleX(230), ScaleY(20), ScaleX(300), ScaleY(220));
WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font
WelcomeLabel1.Font.Color:= clWhite;
WelcomeLabel1.Transparent:= True;
WelcomeLabel1.WordWrap:= true;
WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption;
WelcomeLabel1.Parent:= WizardForm.WelcomePage

WelcomeLabel2:= TLabel.Create(WizardForm);
WelcomeLabel2.AutoSize:= False;
with WizardForm.WelcomeLabel2 do
//координаты WelcomeLabel2
WelcomeLabel2.SetBounds(ScaleX(230), ScaleY(100), ScaleX(257), ScaleY(220));
WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font
WelcomeLabel2.Font.Color:= clWhite;
WelcomeLabel2.Transparent:= True;
WelcomeLabel2.WordWrap:= true;
WelcomeLabel2.Caption:= ExpandConstant('{cm:Welcome2}');
WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption;
WelcomeLabel2.Parent:= WizardForm.WelcomePage

WizardForm.WizardSmallBitmapImage.SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.MainPanel.Height);

PageNameLabel:= TLabel.Create(WizardForm)
with WizardForm.PageNameLabel do
PageNameLabel.SetBounds(Left, Top, Width, Height);
PageNameLabel.Transparent:= True;
PageNameLabel.Font:= WizardForm.PageNameLabel.Font;
PageNameLabel.Font.Color:= clWhite; //цвет надписи
PageNameLabel.Parent:= WizardForm.MainPanel;

PageDescriptionLabel:= TLabel.Create(WizardForm)
with WizardForm.PageDescriptionLabel do
PageDescriptionLabel.SetBounds(Left, Top, Width, Height);
PageDescriptionLabel.Transparent:= True;
PageDescriptionLabel.Font:= WizardForm.PageDescriptionLabel.Font;
PageDescriptionLabel.Font.Color:= clWhite; //цвет надписи
PageDescriptionLabel.Parent:= WizardForm.MainPanel;

FinishedHeadingLabel:= TLabel.Create(WizardForm);
FinishedHeadingLabel.AutoSize:= False;
with WizardForm.FinishedHeadingLabel do
//координаты FinishedHeadingLabel
FinishedHeadingLabel.SetBounds(ScaleX(230), ScaleY(20), ScaleX(292), ScaleY(220));
FinishedHeadingLabel.Font:= WizardForm.FinishedHeadingLabel.Font
FinishedHeadingLabel.Font.Color:= clWhite;
FinishedHeadingLabel.Transparent:= True;
FinishedHeadingLabel.WordWrap:= true;
FinishedHeadingLabel.Parent:= WizardForm.FinishedPage

FinishedLabel:= TLabel.Create(WizardForm);
FinishedLabel.AutoSize:= False;
with WizardForm.FinishedLabel do
//координаты FinishedLabel
FinishedLabel.SetBounds(ScaleX(230), ScaleY(100), ScaleX(257), ScaleY(220));
FinishedLabel.Font:= WizardForm.FinishedLabel.Font
FinishedLabel.Font.Color:= clWhite;
FinishedLabel.Transparent:= True;
FinishedLabel.WordWrap:= true;
FinishedLabel.Parent:= WizardForm.FinishedPage

WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;

WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.FinishedHeadingLabel.Hide;
end;


procedure InitializeWizard();
Begin
LabelSize();
ButtonTextures();
Labels();
music();
ExtractTemporaryFile('Finishe.bmp');
WizardForm.WizardBitmapImage.Width:= ScaleX(497);
WizardForm.WizardBitmapImage2.Width:= ScaleX(497);
WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Finishe.bmp'));
ExtractTemporaryFile('papka.bmp');
WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));
WizardForm.SelectDirBitmapImage.AutoSize:=true;
WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));
WizardForm.SelectGroupBitmapImage.AutoSize:=true;
End;

Procedure CurPageChanged(CurPageID: Integer);
Begin
UpdateButtons();
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
//PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;

FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
FinishedHeadingLabel.Caption:= WizardForm.FinishedHeadingLabel.Caption;

if BASS_ChannelIsActive(mp3Handle) = BASS_ACTIVE_PAUSED then
PlayButton.Show else
PauseButton.Show;

Case CurPageID of
wpWelcome:
begin
PlayButton.Hide;
PauseButton.Hide;
end;

wpSelectDir:
begin
GetNeedSpaceCaption;
if FreeMB < NeedSize then
begin
WizardForm.NextButton.Enabled := False;
ButtonLabel[bidNext].Enabled := False;
ButtonPanel[bidNext].Enabled := False;
end;
end;

wpFinished:
begin
PlayButton.Hide;
PauseButton.Hide;
end;
End;
end;[/more]

Sergey_Demchuk
вот так пробовал?

Код:
procedure OnClick(Sender: TObject);
begin
if (WizardForm.ComponentsList.Checked[5]) WizardForm.ComponentsList.Checked[10] := false;
if (WizardForm.ComponentsList.Checked[10]) WizardForm.ComponentsList.Checked[5] := false;
end;

Sergey_Demchuk
может быть это подойдет:
[more]
Код: [Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

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

[Components]
Name: main; Description: main; Types: full custom;
Name: help; Description: help; Types: full custom;
Name: help\documentation; Description: help1; Types: full custom;
Name: help\manual; Description: help2; Types: full custom;

[_code]
procedure ClickCheck(Sender: TObject);
begin
if TNewCheckListBox(Sender).ItemIndex = 0 then
WizardForm.ComponentsList.Checked[3]:=false;
if TNewCheckListBox(Sender).ItemIndex = 3 then
WizardForm.ComponentsList.Checked[0]:=false;
end;

procedure InitializeWizard();
begin
WizardForm.ComponentsList.OnClickCheck:=@ClickCheck;
end;

Alex 17
FinishedLabel.Caption:= 'твой текст';

У меня не получается - не знаю как сделать абзац - отступ!

Если я сделаю репак без реестра то патчи, которые выйдут в будущем не смогут установиться на него!?

Alex 17
Патчи ты не сможешь поставить, т.к. нет веток в реестре,, хотя может и не прав я
[more=Текст на главной]WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do begin
AutoSize:=False;
SetBounds(ScaleX(-26), ScaleY(31), ScaleX(550), ScaleY(70));
WordWrap:=True;
Alignment := taCenter;
Transparent:=True;
Font.Name:='Georgia';
Font.Size:= 14;
Font.Color:=$000000;
Font.Style:=[fsBold];
Caption:= ExpandConstant('{cm:Welcome1}');
Parent:=WizardForm.WelcomePage;
end;
[/more]

Код: SetBounds(ScaleX(-26), ScaleY(31), ScaleX(550), ScaleY(70));

Цитата:

Патчи ты не сможешь поставить, т.к. нет веток в реестре,, хотя может и не прав я

не прав, инно создает в любом случае запись в анинсталл, опираясь на которую, можно делать инсталл для пача.

Gnom3, можно подробнее?

Gnom3

Цитата:

инно создает в любом случае запись в анинсталл

Возможно тут имелось ввиду что-то другое. Если чел делает репак и не вносит специфические записи в реестре, то официальные патчи не смогут поставиться на этот репак (в большинстве случаев), ибо будут отсутствовать те самые волшебные ветки в реестре.

SotM, вот только где их взять, если стим-игра?

Я задал вопрос на предыдущей странице, но у меня ничего не получается, поможете?

Alex 17
Это ответвление непосредственно для Inno Setup а не для "где найти реестр" но дам совет ,скачиваем RegShot , запускаем ,делаем снимок локального реестра ,далее устанавливаем нужную нам игру ,далее делаем 2-ой снимок локального реестра и в конце мы видим результат в виде новых\изменившихся ключей после 1-ого сканирования и ищем нужные вам уже ручками в реесте опираясь на данные регшота

Всем привет.
Подскажите пожалуйста, чем может быть вызвана такая ошибка: http://s60.radikal.ru/i168/1106/36/d64735d54618.jpg
У меня ни разу не наблюдалась. Но у других людей имеет место быть иногда.
Спасибо большое за внимание.

FunnyRabbit, спасибо, попробуєм!


Добавлено:
Как можно добавить страницу на которой нужно будет ввести свой ник (если он не будет введен - нельзя будет перейти на следующую страницу)? И как реализовать, чтобы если пользователь например напишет "Killer" то определенный файл переименуется в его ник? Или не имя файла, а какая-то строка заменится на его ник! Спасибо!!

Alex 17
решалось несколько месяцев назад. Изучай. как раз то, что просиш.

Gnom3, этого многовато, кроме того у меня выкидывает ошибку! Мне нужно исправить всего одну строку в зависимости от введенного ника!

Alex 17
тебе же сказали ИЗУЧАЙ