|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 8] |
|
Скрипты Inno Setup. Помощь и советы [часть 8]
|
Ветеран Сообщения: 1264 |
Профиль | Отправить PM | Цитировать
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Отправлено: 08:52, 02-02-2015 |
Новый участник Сообщения: 32
|
Цитата ZVSRus:
|
|
Отправлено: 16:43, 14-03-2018 | #2491 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 32
|
Добрый день!
Подскажите еще пожалуйста - возможно ли сделать проверку MD5 группы файлов не используя ResTools? |
Отправлено: 11:43, 16-03-2018 | #2492 |
Новый участник Сообщения: 42
|
Профиль | Отправить PM | Цитировать |
Отправлено: 09:48, 18-03-2018 | #2493 |
Старожил Сообщения: 284
|
Профиль | Отправить PM | Цитировать Цитата pollipen:
|
|
------- Отправлено: 14:31, 18-03-2018 | #2494 |
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin Confirm:=False; Cancel:=False; MsgBox('Are you sure you want to cancel {#AppName} installation?', mbInformation, MB_YESNO); end; Как сделать кнопки рабочими ? |
Отправлено: 14:52, 20-03-2018 | #2495 |
Старожил Сообщения: 440
|
Профиль | Сайт | Отправить PM | Цитировать Цитата pakuwacenu:
|
|
------- Отправлено: 20:48, 20-03-2018 | #2496 |
Новый участник Сообщения: 1
|
Профиль | Отправить PM | Цитировать Здравствуйте, при создании инсталлятора я столкнулся с проблемой. Мне нужно сделать несколько кастомных страниц с выбором компонентов, а также с превью и описанием компонентов, желательно через botva2. Кто-нибудь знает, как это можно реализовать?
|
Отправлено: 00:03, 26-03-2018 | #2497 |
Новый участник Сообщения: 29
|
Профиль | Отправить PM | Цитировать Inno Setup Scripting 5.1 от Kindly
https://yadi.sk/d/zLRic4yZ3TvyHM MD5: 8864d4574596690b9d9f282e2d4d6a64 3 МБ |
Отправлено: 08:04, 31-03-2018 | #2498 |
Пользователь Сообщения: 50
|
Профиль | Отправить PM | Цитировать
Здравствуйте, уважаемые пользователи форума Oszone.net. Нужна ваша помощь!
2.Можно ли установить изображение, не важно в каком формате(см.скрин.1); 3.Можно ли поставить текст, допустим: разработано кем-то и т.д.(см.скрин.1); 4.Почему-то не указывается выбор установки: полная, кастомная и т.д., наверно я опять накосячил где-то(см.скрин.2); 5.Как сделать, чтобы при наведении на компонент отображалось изображение, именно в моём коде.(см.скрин.2) -- Заранее спасибо вам огромное! Если найду ответы на свои вопросы, то сразу буду зачёркивать пункты. Cекции Types and Components
[Types] Name: default; Description: Полная установка(SimpleRadar); Name: srl; Description: Полная установка(SimpleRadar Lite); Name: fr; Description: Полная установка(Froosh); Name: lsc; Description: Полная установка(LoneySilverCity); [Components] Name: SR; Description: {code:CompHelper|От Simple Radar}; Types: default; Flags: exclusive; Name: SR\MAP1; Description: {code:CompHelper|Cobblestone|sr1.bmp}; Name: SR\MAP2; Description: {code:CompHelper|Dust II|sr2.bmp}; Name: SR\MAP3; Description: {code:CompHelper|Inferno|sr3.bmp}; Name: SR\MAP4; Description: {code:CompHelper|Mirage|sr4.bmp}; Name: SR\MAP5; Description: {code:CompHelper|Nuke|sr5.bmp}; Name: SR\MAP6; Description: {code:CompHelper|Overpass|sr6.bmp}; Name: SR\MAP7; Description: {code:CompHelper|Train|sr7.bmp}; ;Name: SRL; Description: {code:CompHelper|От Simple Radar Lite}; Types: srl; Flags: exclusive; ;Name: SRL\MAP1; Description: {code:CompHelper|Cobblestone|srl1.bmp}; ;Name: SRL\MAP2; Description: {code:CompHelper|Dust II|srl2.bmp}; ;Name: SRL\MAP3; Description: {code:CompHelper|Inferno|srl3.bmp}; ;Name: SRL\MAP4; Description: {code:CompHelper|Mirage|srl4.bmp}; ;Name: SRL\MAP5; Description: {code:CompHelper|Nuke|srl5.bmp}; ;Name: SRL\MAP6; Description: {code:CompHelper|Overpass|srl6.bmp}; ;Name: SRL\MAP7; Description: {code:CompHelper|Train|srl7.bmp}; Name: FR; Description: {code:CompHelper|От Froosh}; Types: fr; Flags: exclusive; Name: FR\MAP1; Description: {code:CompHelper|Cobblestone|froosh1.bmp}; Name: FR\MAP2; Description: {code:CompHelper|Dust II|froosh2.bmp}; Name: FR\MAP3; Description: {code:CompHelper|Inferno|froosh3.bmp}; Name: FR\MAP4; Description: {code:CompHelper|Mirage|froosh4.bmp}; Name: FR\MAP5; Description: {code:CompHelper|Overpass|froosh5.bmp}; Name: LSC; Description: {code:CompHelper|От LoneySilverCity}; Types: lsc; Flags: exclusive; Name: LSC\MAP1; Description: {code:CompHelper|Aztec|lsc1.bmp}; Name: LSC\MAP2; Description: {code:CompHelper|Cobblestone|lsc2.bmp}; Name: LSC\MAP3; Description: {code:CompHelper|Dust II|lsc3.bmp}; Name: LSC\MAP4; Description: {code:CompHelper|Inferno|lsc4.bmp}; Name: LSC\MAP5; Description: {code:CompHelper|Nuke|lsc5.bmp}; Name: LSC\MAP6; Description: {code:CompHelper|Overpass|lsc6.bmp}; Name: LSC\MAP7; Description: {code:CompHelper|Train|lsc7.bmp}; Секция CODE
var ImagePanel: TPanel; ComponentsInfoImage: TBitmapImage; ComponentHelper: TStringList; function CompHelper(Param: string): string; var Image: TBitmap; Index: Integer; begin Result := ''; with TStringList.Create do try StringChangeEx(Param, '|', #13#10, True); Text := Param; if Count = 0 then Exit; if Count > 0 then Index := ComponentHelper.Add(Strings[0]); if Count > 1 then begin if not FileExists(ExpandConstant('{tmp}\') + Strings[1]) then ExtractTemporaryFile(Strings[1]); Image := TBitmap.Create; Image.LoadFromFile(ExpandConstant('{tmp}\') + Strings[1]); ComponentHelper.Objects[Index] := Image; end; Result := ComponentHelper[Index]; finally Free; end; end; procedure ComponentsListClickCheck(Sender: TObject); begin if not Assigned(Sender) or (TNewCheckListBox(Sender).ItemIndex = -1) then Exit; ComponentsInfoImage.Bitmap.Assign(TBitmap(ComponentHelper.Objects[TNewCheckListBox(Sender).ItemIndex])); end; function InitializeSetup(): Boolean; begin Result := True; ComponentHelper := TStringList.Create; ComponentHelper.Duplicates := dupIgnore; end; var CheckLicense: TCheckBox; procedure LicenseOnClick(Sender: TObject); begin if (CheckLicense.Checked) = True then begin WizardForm.LicenseAcceptedRadio.Checked := True; end else begin WizardForm.LicenseNotAcceptedRadio.Checked := True; end; end; procedure InitializeWizard(); var i: Integer; begin WizardForm.TypesCombo.Visible := False; WizardForm.ComponentsList.Visible := True; WizardForm.ComponentsList.Height := ScaleX(209); WizardForm.ComponentsList.Top := ScaleX(15); WizardForm.ComponentsList.Width := ScaleX(175); for i := 0 to WizardForm.ComponentsList.Items.Count - 1 do if not WizardForm.ComponentsList.ItemEnabled[i] then WizardForm.ComponentsList.ItemSubItem[i] := ''; WizardForm.ComponentsDiskSpaceLabel.Visible := True; WizardForm.LicenseNotAcceptedRadio.Hide; WizardForm.LicenseAcceptedRadio.Hide; WizardForm.LicenseMemo.Height := ScaleY(175); CheckLicense:= TCheckBox.Create(WizardForm); CheckLicense.Left:= ScaleX(0); CheckLicense.Top:= ScaleY(216); CheckLicense.Caption:= WizardForm.LicenseAcceptedRadio.Caption; CheckLicense.Width:= ScaleX(417); CheckLicense.OnClick:= @LicenseOnClick; CheckLicense.Parent:= WizardForm.LicensePage; ImagePanel := TPanel.Create(WizardForm); ImagePanel.Parent := WizardForm.SelectComponentsPage; ImagePanel.Caption := ''; ImagePanel.Top := ScaleX(15); ImagePanel.Left := ScaleX(180); ImagePanel.Width := ScaleX(210); ImagePanel.Height := ScaleX(210); ImagePanel.BevelInner := bvRaised; ImagePanel.BevelOuter := bvLowered; WizardForm.ComponentsList.OnClickCheck:= @ComponentsListClickCheck; ComponentsInfoImage:= TBitmapImage.Create(WizardForm); ComponentsInfoImage.Parent:= ImagePanel; ComponentsInfoImage.Top:= ScaleY(2); ComponentsInfoImage.Left:= ScaleX(2); ComponentsInfoImage.Width:= ScaleX(205); ComponentsInfoImage.Height:= ScaleY(205); ComponentsInfoImage.Stretch:= True; ComponentsInfoImage.BringToFront; end; procedure CurPageChanged(CurPageID: Integer); begin case CurPageID of wpSelectComponents: ComponentsListClickCheck(nil); end; end; function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of wpSelectDir: if not FileExists(ExpandConstant('{app}\steam.exe')) then begin MsgBox('Ошибка! Вы должны указать путь до папки Steam.', mbError, MB_OK); Result := False; end; end; end; |
||||||||
Последний раз редактировалось TheLeon, 02-04-2018 в 17:57. Отправлено: 18:17, 01-04-2018 | #2499 |
Старожил Сообщения: 284
|
Профиль | Отправить PM | Цитировать Цитата TheLeon:
|
|
------- Отправлено: 17:26, 02-04-2018 | #2500 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты Inno Setup. Помощь и советы [часть 7] | El Sanchez | Автоматическая установка приложений | 2499 | 02-02-2015 08:59 | |
Скрипты Inno Setup. Помощь и советы [часть 6] | El Sanchez | Автоматическая установка приложений | 2494 | 10-03-2014 11:51 | |
Скрипты Inno Setup. Помощь и советы [часть 5] | El Sanchez | Автоматическая установка приложений | 1999 | 28-03-2013 19:09 | |
Скрипты Inno Setup. Помощь и советы [часть 4] | El Sanchez | Автоматическая установка приложений | 2099 | 22-05-2012 23:16 | |
Скрипты Inno Setup. Помощь и советы [часть 3] | Serega | Автоматическая установка приложений | 3755 | 26-10-2011 17:58 |
|