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

Imperor · Отправлено: **08:20, 13-08-2014** | #**1351**

Nordek, вас не понять, то вы про лень пользователей говорите, то за просто так вам лень помогать, ну я и предложил оплатить работу. В ответ я получаю сообщение, что я типо на вас "наезжаю" и "беру на понт")) Спасибо за тему, которую дали, там последнее сообщение в июне было. Может туда уже никто и не заглядывает с того месяца. Да и вообще сложно найти то, не зная чего. В моём случае нужна реальная помощь человека, который в этом разбирается. Если не можете помочь, лучше промолчите или найдите того, кто поможет. Это вам не в реестре стринги прописывать.

zaza5 · Отправлено: **09:21, 13-08-2014** | #**1352**

очень нужна помощь в создании инсталлятора, похожего нигде не нашел, сам тоже слабоват в написании скриптов, ни разу не программист, готов заплатить, напишите кто хорошо разбирается ICQ 693128042 или в личку

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

Цитата Imperor:

В ProgressBar лежат ссылки на png файлы прогресс бара, первый отображает его шаблон, второй ход процесса загрузки. Второй почему то не отображается »

Imperor, давно б уже избавились бы от модульной системы скрипта, написали бы скрипт все в одном, попутно выкидывая килограммы неиспользуемого кода, а то отладку толком не сделать. В теле функции ImgPBCreate при получении дескриптора картинки прогрессбара (где Result.img1) значение последнего параметра IsBkg функции ImgLoad должно быть False.

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

Imperor, забыл добавить, что ещё и на ботве - а это важно. Как уже написал El Sanchez нужно поменять значение в модуле ProgressBar.iss с True на False:
с

Код:

if Length(pb)>0 then Result.img1:=ImgLoad(hParent, pb, Result.Left, Result.Top, 0, Result.Height, True, True) else Result.img1:= 0;

на

Код:

if Length(pb)>0 then Result.img1:=ImgLoad(hParent, pb, Result.Left, Result.Top, 0, Result.Height, True, False) else Result.img1:= 0;

Вот готовый вариант.

Ты видимо взял вариант с прогрессбаром из скрипта, где использовался прозрачный pbbkg.png. В таком случае (если pbbkg.png прозрачный) можно оставить значение True.

Цитата Imperor:

Если лень оказать услугу за просто так, то просто сразу так и скажите, я могу и заплатить(в пределах разумного конечно) раз уж на то пошло. »

Ну не такой уж я крахобор. Мне лень, просто лень. Когда бывает настроение, то помогаю, чем могу.

zaza5, попробуй спросить в этой теме.

killer000 · Отправлено: **16:10, 13-08-2014** | #**1355**

Привет помогите
как мне прицепить компоненты

andy.zubov@vk · Отправлено: **16:32, 13-08-2014** | #**1356**

Ребята, порекомендуйте как лучше организовать следующее.

В программе около 20 компонентов (опций) каждая из которых не зависит от остальных. И каждая из этих опций добавляет в программу определенный функционал который бы хотелось отобразить в виде скриншота, т.е чтобы пользователь в выборе компонентов для установки мог увидеть текстовое описание и скриншот программы детализирующий эту самую опцию.
Сам выбор я уже давно сделал, интересует именно текстовое и графическое описание к компонентам, как это можно реализовать?

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

andy.zubov@vk, здесь. А так то про это много писали и в данной ветке. Пользуйтесь поиском.
killer000, не понял вопроса.

killer000 · Отправлено: **17:56, 13-08-2014** | #**1358**

nik1967,
всё сделал по другому
есть другой вопрос
как скрыть DirPage при выбранном компоненте
хочу сделать что бы при обручной установки, можно было выбрать папку установки
а при распаковке паративки, скрыть выбор папки, чтобы сразу приступал к распаковке

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

Цитата killer000:

а при распаковке паративки, скрыть выбор папки, чтобы сразу приступал к распаковке »

Код:

;InnoSetupVersion=5.5.0 (Unicode)
[Setup]
AppName=Autorun Organizer
AppVerName=Autorun Organizer 1.22
AppVersion=1.22
AppPublisher=RePack by Killer000.
DefaultDirName={pf}\Autorun Organizer
DefaultGroupName=Autorun Organizer
UninstallDisplayIcon={app}\mischief.exe
UninstallDisplayName=Autorun Organizer 1.22 RePack
OutputBaseFilename=Autorun Organizer 1.22
Compression=lzma2/ultra64
Uninstallable=not IsComponentSelected('Portable')
DisableProgramGroupPage=yes
DisableReadyPage=yes
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp

[Files]
Source: "{app}\AutorunOrganizer.exe"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\ChemtableStartupChecker.exe"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\HardwareConstant.dll"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\ProgramDataStorage.const"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Reg64Call.exe"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Updater.exe"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\UpdaterDll.dll"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Languages\Russian.sib"; DestDir: "{src}\Autorun Organizer Portable\Languages\"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\images\line.gif"; DestDir: "{src}\Autorun Organizer Portable\Documentation\images\"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\index_eng.htm"; DestDir: "{src}\Autorun Organizer Portable\Documentation\"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\index_rus.htm"; DestDir: "{src}\Autorun Organizer Portable\Documentation\"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\styles.css"; DestDir: "{src}\Autorun Organizer Portable\Documentation\"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\AutorunOrganizer.exe"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\ChemtableStartupChecker.exe"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\HardwareConstant.dll"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\ProgramDataStorage.const"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Reg64Call.exe"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Updater.exe"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\UpdaterDll.dll"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Languages\Russian.sib"; DestDir: "{app}\Languages\"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\images\line.gif"; DestDir: "{app}\Documentation\images\"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\index_eng.htm"; DestDir: "{app}\Documentation\"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\index_rus.htm"; DestDir: "{app}\Documentation\"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\styles.css"; DestDir: "{app}\Documentation\"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion

[Run]
Filename: "{app}\AutorunOrganizer.exe"; Description: "{cm:LaunchProgram,Autorun Organizer}"; Components: Install; MinVersion: 0.0,5.0; Flags: postinstall skipifsilent nowait

[Icons]
Name: "{group}\{cm:LaunchProgram,Autorun Organizer}"; Filename: "{app}\AutorunOrganizer.exe"; Components: Install; Tasks: Group; MinVersion: 0.0,5.0;
Name: "{group}\{cm:UninstallProgram,Autorun Organizer}"; Filename: "{uninstallexe}"; Components: Install; Tasks: Group; MinVersion: 0.0,5.0;
Name: "{userdesktop}\{cm:LaunchProgram,Autorun Organizer}"; Filename: "{app}\AutorunOrganizer.exe"; Components: Install; Tasks: Desktopicon; MinVersion: 0.0,5.0;

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Components: "Install"; MinVersion: 0.0,5.0;
Name: "group"; Description: "{cm:Shortcut}"; GroupDescription: "{cm:AdditionalIcons}"; Components: "Install"; MinVersion: 0.0,5.0;

[Components]
Name: "install"; Description: "{cm:Install}"; Types: "custom"; MinVersion: 0.0,5.0; Flags: exclusive
Name: "portable"; Description: "{cm:Portable}"; Types: "custom"; MinVersion: 0.0,5.0; Flags: exclusive

[Types]
Name: "custom"; Description: "Выборочная установка"; Flags: iscustom

[Languages]
; These files are stubs
; To achieve better results after recompilation, use the real language files
Name: "ru"; MessagesFile: "embedded\Russian.isl";

[CustomMessages]
ru.NameAndVersion=%1, версия %2
ru.AdditionalIcons=Дополнительно:
ru.CreateDesktopIcon=Ярлык на &Рабочем столе
ru.CreateQuickLaunchIcon=Создать значок в &Панели быстрого запуска
ru.ProgramOnTheWeb=Сайт %1 в Интернете
ru.UninstallProgram=Удалить
ru.LaunchProgram=Запустить %1
ru.AssocFileExtension=Св&язать %1 с файлами, имеющими расширение %2
ru.AssocingFileExtension=Связывание %1 с файлами %2...
ru.AutoStartProgramGroupDescription=Автозапуск:
ru.AutoStartProgram=Автоматически запускать %1
ru.AddonHostProgramNotFound=%1 не найден в указанной вами папке.%n%nВы всё равно хотите продолжить?
ru.Shortcut=Ярлыки в меню «Пуск»
ru.ContextMenu=Пункт контекстного меню
ru.Install=Установка обычной версии
ru.Portable=Распаковка портативной версии (рядом с инсталлятором)

[code]
var
Components: TLabel; ComponentPage: TWizardPage;
SelectComponentsLabel: TLabel;


procedure InitializeWizard();
begin
ComponentPage := CreateCustomPage(wpLicense, 'Выбор компонентов',
'Какие компоненты должны быть установлены?');
WizardForm.DiskSpaceLabel.Hide
WizardForm.TypesCombo.Parent:= ComponentPage.Surface;
WizardForm.ComponentsList.Parent:= ComponentPage.Surface
WizardForm.ComponentsDiskSpaceLabel.Parent:= ComponentPage.Surface
WizardForm.TypesCombo.Parent:= ComponentPage.Surface;
WizardForm.TypesCombo.Top:= ScaleY(45)
WizardForm.ComponentsList.Top:= ScaleY(45)
WizardForm.ComponentsDiskSpaceLabel.Hide;
WizardForm.ComponentsList.Height := ScaleY(165);
SelectComponentsLabel:= TLabel.Create(WizardForm)
with SelectComponentsLabel do
begin
Left:= ScaleX(40);
Width:= WizardForm.SelectComponentsLabel.Width;
Height:= WizardForm.SelectComponentsLabel.Height;
Autosize:= false;
WordWrap:= true;
Transparent:= true;
Caption:= WizardForm.SelectComponentsLabel.Caption;
WizardForm.SelectComponentsLabel.Parent:= ComponentPage.Surface;
end
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
    case PageID of
        wpSelectComponents: Result := True;
        wpSelectDir: Result := IsComponentSelected('portable') <> False;
    end;
end;

Imperor · Отправлено: **21:39, 13-08-2014** | #**1360**

El Sanchez, nik1967, Спасибо парни вы лучшие, особенно Ник! Который не поленился перелопатить мой скрипт и найти источник всех бед)) Без вас бы я ещё месяц мучался, так бы и не смог ничего сделать, даже еслиб все форумы перерыл по Inno Setup, что я собственно почти и сделал)) Вообщем всех вам самых лучших пожеланий и поменьше проблемных новичков вроде меня, которые задумывают проект, который им не по силам)