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

[Vamp1re]

Хочю сделать в инсталяторе при установке такое как на рисунке . Дайте мне пожалуйста код
http://s005.radikal.ru/i212/1102/96/e2520143c679.jpg

:help: :help: :unsure: :read:

[serg aka lain]

Хочю сделать в инсталяторе при установке такое как на рисунке . »



[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.

[Components]
Name: "compon1"; Description: "Язык субтитров"; Types: "full compact custom"; Flags: fixed;
Name: "compon1\russian"; Description: "Русский"; Flags: exclusive;
Name: "compon1\english"; Description: "Английский"; Flags: exclusive;
Name: "compon2"; Description: "Язык озвучки"; Types: "full compact custom"; Flags: fixed;
Name: "compon2\russian"; Description: "Русский"; Flags: exclusive;
Name: "compon2\english"; Description: "Английский"; Flags: exclusive;

[Code]
procedure InitializeWizard();
begin
with WizardForm do
begin
TypesCombo.Hide;
with SelectComponentsLabel do
begin
Height := Height + ScaleY(21);
end;
end;
end;

[serg aka lain]

Как мне сделть чтоб установка какой либо программы отображалась так: (см.рис.)


[Files]
Source: {sys}\*.dll; DestDir: {app}; Flags: deleteafterinstall external;

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.

[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpInstalling then
begin
with WizardForm do
begin
ClientWidth := ScaleX(330);
ClientHeight := ScaleY(110);
MainPanel.Hide;
InnerNotebook.Left := 0;
InnerNotebook.Top := 0;
StatusLabel.Left := ScaleX(10);
StatusLabel.Top := ScaleY(10);
StatusLabel.Width := ClientWidth - ScaleX(20);
FilenameLabel.Left := ScaleX(10);
FilenameLabel.Top := StatusLabel.Top + StatusLabel.Height;
FilenameLabel.Width := ClientWidth - ScaleX(20);
ProgressGauge.Left := ScaleX(10);
ProgressGauge.Top := FilenameLabel.Top + FilenameLabel.Height + ScaleY(5);
ProgressGauge.Width := ClientWidth - ScaleX(20);
CancelButton.BringToFront;
CancelButton.Left := ClientWidth div 2 - CancelButton.Width div 2;
CancelButton.Top := ClientHeight - CancelButton.Height - ScaleY(10);
Center;
end;
end;

if CurPageID = wpFinished then
begin
WizardForm.ClientWidth := ScaleX(497);
WizardForm.ClientHeight := ScaleY(360);
WizardForm.Center;
end;
end;

[audiostore]

Всем привет, скажите у кого нибудь есть прога для просмотра .dat файлов Inno, называется Datviewer, если есть, не могли бы скинуть на audiostore@inbox.ru или на какой фалообменник,
заранее спасибо.

[nik1967]

[Types]
Name: full; Description: Full installation; Flags: iscustom;

[Components]
Name: lng; Description: Язык интерфеса:; Types: full; Flags: fixed
Name: lng\eng; Description: Английский; Flags: exclusive;
Name: lng\rus; Description: Русский; Flags: exclusive;
Name: icons; Description: Создание ярлыков:;
Name: icons\desktop; Description: На 'Рабочем столе'; Types: full;
Name: icons\groop; Description: В меню 'Пуск'; Types: full;
Name: addins; Description: Программное обеспечение:;
Name: addins\dop1; Description: Обновление компонентов DirectX; Types: full; то и секции код не надо.

[Devils0411]

Serega, А с чем связано добавление флагов? Ведь раньше работало и без них.
ЗЫ. Попробовал как вы указали, но опять не отрабатывает.
ЗЫЫ. Нашел ошибку.. все нормально работает. Спасибо.

[EvilAlex]

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

заменяю мр3 на м3у и во время установки тишина, както можно сделать чтобы музыка с радио играла ?

[Vamp1re]

Как изменить общий цвет инсталятора? помогите пожалйста

[R3Pa4eK]

EvilAlex, для этого нужно переписывать библиотеку bass.dll!

[R3Pa4eK]

У кого есть скрипт на пример использования библиотеки ISExec.dll?

[Gnom_aka_Lexander]

EvilAlex, Посмотри Здесь (http://www.un4seen.com/), это официальный сайт библиотеки. Библиотека давно обновилась, скрипт все еще от предидущей версии, может по материалам сайта сделаеш финкцию для м3у :)

[Vamp1re]

Как мне удалить все информеры в инсталляторе похожие на етот? :
(см.рис.) http://s51.radikal.ru/i134/1103/43/5fde7ccf804e.jpg

[Gnom_aka_Lexander]

Vamp1re,
procedure InitializeWizard();
begin
with WizardForm.PageDescriptionLabel do
begin
Visible := False;
end;

with WizardForm.PageNameLabel do
begin
Visible := False;
end;
end;
или проще:
procedure InitializeWizard();
begin
WizardForm.PageDescriptionLabel.Visible:= False;
WizardForm.PageNameLabel.Visible:= False;
end;
Или так:procedure InitializeWizard();
begin
WizardForm.PageDescriptionLabel.Hide;
WizardForm.PageNameLabel.Hide;
end;

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

У меня вопросы сложные:
- как узнать версию драйвера для видеокарт амд?
- как получить айпишник машины, на котором запущен инсталлер?

[STRAYKER]

Вот у меня вопрос как удалить ету область ???
http://www.pictureshack.ru/images/3367w23wdase2.jpg

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

мой третий вопрос, простой: как в списке кмпонентов запретить снимать галку с родительского компонента но при этом можно было выбирать дочерние? т.е. с nastr нельзя было снять галку, а на a и/или b можно было бы ставить/снимать галки
[Components]
Name: nastr\; Description: ab; Flags: disablenouninstallwarning
Name: nastr\a; Description: {#a}; Flags: disablenouninstallwarning exclusive
Name: nastr\b; Description: {#b}; Flags: disablenouninstallwarning exclusive

[nik1967]

STRAYKER,
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[_Code]
function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT; lpNewItem: PChar): BOOL; external 'AppendMenuA@user32.dll stdcall';
function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; external 'GetSystemMenu@user32.dll stdcall';

const
MF_DELETE = $200;

procedure InitializeWizard();
begin
AppendMenu(GetSystemMenu(Wizardform.Handle, True), MF_DELETE, 0, SetupMessage(msgAboutSetupMenuItem));
end;

R.i.m.s.k.y.,
По 3 вопросу:
[Types]
Name: full; Description: Full installation; Flags: iscustom;

[Components]
Name: nastr; Description: ab; Flags: disablenouninstallwarning fixed; Types: full;
Name: nastr\a; Description: {#a}; Flags: disablenouninstallwarning exclusive;
Name: nastr\b; Description: {#b}; Flags: disablenouninstallwarning exclusive;

[Vamp1re]

Подскажите пожалуйста: как растянуть картинку к левому краю?
(см.рис.)http://s48.radikal.ru/i120/1103/7a/ee35b599f7bb.jpg

[Gnom_aka_Lexander]

Vamp1re,
procedure InitializeWizard();
begin
with WizardForm.WizardSmallBitmapImage do
begin
Left := ScaleX(368);//Начальная точка
Width := ScaleX(127);//длинна картинки
end;
end;

nik1967,
есть-же проще :)
procedure InitializeWizard();
begin
WizardForm.Position:= poScreenCenter;
end;

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

возможно не совсем понял »
Flags: fixed ставит флаг и запрещает изменения этого компонента и дочернего, способ nik1967 робит.