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

Denkxx · Отправлено: **15:42, 16-09-2009** | #**121**

A1EXXX, спасибо. Нашел решение.

Цитата:

[Icons] Name: "{group}\Видео"; Filename: "{app}\Crystal.exe"; Parameters: "movie.avi"; WorkingDir: "{app}"; Tasks: groupicon

Berline · Отправлено: **14:36, 17-09-2009** | #**122**

Serega, не совсем ясно я объяснил... ранее, без добавления ваших измнений. т.е. кнопок - я благополучно выделял галочки руками, у меня менялся сразу необходимый размер на диске, и при повторном запуске этого инсталлятора - он мне отображал уже установленные галочки тех компонентов, что я выбрал.
Такое не изменилось после добавления кнопок, но они не корректны, а именно, повторюсь: при выделениее всех компонент, размер не перессчитывается. хотя действительно, компоненты установились, и при повторной установке поверх - инсталлятор не отображает компоненты, которые я уже установил...

_Monster_ · Отправлено: **20:07, 18-09-2009** | #**123**

Здравствуйте! 3 вопроса
1) как сделать мини прогресс бар http://pic.ipicture.ru/uploads/090918/aE767v7uzj.png
2) как изменить цвет самого инстолятора (полностью черный например)
3) когда я захожу пуск-> прграммы у меня присутствует только главный файл запуска http://pic.ipicture.ru/uploads/090918/3fUug68pGr.png
а как сделать чтобы можно отсюда же и удалить программу
Жду ваших ответов!спасибо

A1EXXX · Отправлено: **13:08, 19-09-2009** | #**124**

Кто знает, как сделать отступ между "Созданием ярлыков" и "Языком игры" ???

_Monster_ · Отправлено: **17:07, 19-09-2009** | #**125**

A1EXXX кстати нашел твой пост где цвет инсталятора можно поменять спасибо.

_Monster_ · Отправлено: **17:43, 19-09-2009** | #**126**

кто подскажет? как можно изменить эту белую папку

на мою серую с черным фоном

A1EXXX · Отправлено: **18:58, 19-09-2009** | #**127**

_Monster_, два варианта:

1) прикрутить внешнюю bmp картинку

например, вот эту...

2) Либо вот этим кодом:

Serega · Конфигурация компьютера

Цитата _Monster_:

как сделать мини прогресс бар »

Рисуете свою форму и в момент инсталляции скрываете форму инсталлятора и активируете свою, после инсталляции прячете свою форму, а форму мастера делаете видимой.

Цитата _Monster_:

а как сделать чтобы можно отсюда же и удалить программу »

Добавьте в секцию [Icons]:

Код:

Name: {group}\Удалить программу; Filename: {uninstallexe}

_Monster_ · Отправлено: **20:58, 19-09-2009** | #**129**

ну вот опять вопрос

не могу соеденить черный фон с серой папкой которую дал A1EXXX (ругается на procedure InitializeWizard(); т.к их в секции 2-ое, по отдельности каждый код работает)

Цитата:

[code]
[Files]
Source: C:\papka.bmp; DestDir: {tmp}; Flags: dontcopy

[code]
procedure InitializeWizard();
begin
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;

const
Color = clblack;

procedure InitializeWizard();
begin
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;

A1EXXX · Отправлено: **21:33, 19-09-2009** | #**130**

Новый FreeArc v0.52...

_Monster_, пробуй...