Inno Setup VCL

Leserg · 17 Ноя 2020

Это модифицированная редакция Inno Setup на русском языке, в которую встроена поддержка визуальных стилей *.vsf. Теперь вам не нужно использовать сторонние библиотеки и писать соответствующий код. Достаточно в сценарии указать директиву SetupStyleFile с выбранным файлом стиля и на этом все. Также данная модификация поддерживает расширенную палитру стандартных компонентов и дополнена некоторыми функциями и параметрами из расширенной версии компилятора от RESTOOLS.

Разработка данной модификации ведётся на базе исходного кода Inno Setup (Copyright© Jordan Russell и Martijn Laan), а также компонентов VCL Styles Utils (Copyright© Rodrigo Ruz) и SynTaskDialog (Copyright© Synopse Informatique).

Поддерживаемые компоненты:
TMemoryStream, TResourceStream, TParser, TCollectionItem, TCollection, TIcon, TControlScrollBar, TScrollBox, TApplication, TScreen, TGroupBox, TNewGroupBox, TScrollBar, TTrackBar, TUpDown, THotKey, TImageList, TStatusBar, TListView, TShape, TImage, TPaintBox, THeader, TTimer, TSpeedButton, TBitBtn, TMenu, TPopupMenu, TPicture, TPngImage.

Добавленные свойства:
OnMouseEnter, OnMouseLeave, DoubleBuffered и ParentDoubleBuffered.

Дополнения от RESTOOLS:

Новая директива IS_ENHANCED для препроцессора Inno Setup, объявлена по умолчанию;
Константа {apphwnd} – возвращает дескриптор программы установки;
Функции и процедуры:
1. Randomize – включение генератора случайных чисел;
2. FormatFloat – форматирование числа с плавающей запятой в строку;
3. ExtractTemporaryFileEx – распаковка файла в указанный каталог;
4. ExtractTemporaryFileToStream – распаковка файла в память;
Встроенные функции Windows API: FindResource, LoadResource, SizeofResource, LockResource, UnlockResource, FreeResource, LoadCursorFromFile, LoadImage, DrawIconEx, DestroyIcon, SetWindowText;
Директивы в секции [Setup] (есть небольшие отличия от Restools, см. примеры):
1. BitmapResource – добавление в файл установки изображений Bitmap;
2. IconResource – добавление в файл установки значков Icon;
3. RawDataResource – добавление в файл установки различных ресурсов.
Компонент TNewStaticText поддерживает свойство "Transparent" со значением по умолчанию "True";
Компоненту TNewCheckListBox добавлены свойства "ItemFontStyle" и "SubItemFontStyle";
У компонента TNewButton активирован метод Click.

Практическое использование функций, компонентов, и параметров расширенной версии смотрите в примерах сценариев (папка Examples_ENVCL).

Обновление от 02.06.2023 (подробнее)

Исправлена регистрация класса TGraphic;
Добавлен класс TFontAwesome;
Добавлен пример сценария с FontAwesome;
Добавлен переносной режим для Compil32.exe (эксперимент!).

Обновление от 21.05.2023 (подробнее)

Добавлены функции даты и времени;
Добавлены компоненты TMonthCalendar (TNewMonthCalendar) и TDateTimePicker (TNewDateTimePicker);
Добавлена функция Windows API SetWindowTheme;
Добавлен шрифт [FontAwesome](https://fontawesome.com/v4/cheatsheet/) (значки);
Добавлена поддержка свойства StyleElements для стандартных компонентов Delphi;
Расширен перечень поддерживаемых свойств у компонентов TCustomMemoryStream, TResourceStream, TFont, TCustomButton и TButton;
Исправление мелких ошибок и опечаток в коде.

Обновление от 05.03.2023 (подробнее)

Обновлена библиотека VCL Styles Utils;
Обновлена библиотека DDetours;
Обновлена библиотека RemObjects Pascal Script;
Компонентам FolderTreeView, RichEditViewer добавлена поддержка Style VCL;
В элементах интерфейса мастера установки Inno Setup компонент TEdit заменён на TNewEdit;
Ширина диалога выбора языка установки теперь не зависит от параметров масштабирования главного окна установки (SelLangForm.pas);
Исправлена ошибка в процедуре ExtractTemporaryFileToBuffer, размер буфера увеличен до 256К (Extract.pas)
Исправлена ошибка некорректного изменения значка, указанного директивой SetupIconFile в секции [Setup], если файл значка содержал более 13 изображений (авторы Wilenty и Martin Prikryl);
Приведение кода в порядок и исправление незначительных ошибок.

Обновление от 05.03.2023 (подробнее)

Из библиотеки VCL Style вырезан шрифт Awesome и функции его обработки.
Добавлена поддержка локализации диалога задач для Windows XP.
Теперь функциями SetAppTaskbarOverlayIconRes и SetAppTaskbarOverlayIconFile можно убрать значок состояния.
Добавлена директива DirSelectModern для отображения диалога выбора папки в стиле Vista.
Добавлена процедура ExtractTemporaryFileToBuffer – распаковка файла в буфер.

Обновление от 07.01.2021 (подробнее)

Компонент TNewCheckListBox заменён на официальную версию.
Восстановлены стандартные значения TTaskbarProgressState.
Переделана функция записи ресурсов.
Добавлена эмуляция диалогов задач на Windows XP.

Обновление от 21.11.2020 (подробнее)

Добавлена поддержка изображений в формате JPG и PNG.
Добавлена директива и функции для отображения информации на Панели задач.

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

Модификация Inno Setup 6.0.5 - GitHub.
Модификации других версий и различные библиотеки - Я.Диск.

sergey3695 · 17 Ноя 2020

@Leserg, как сделать проверку используя #ifndef на версию компилятора, например тут нету CenterInsideControl? (а FlipSizeAndCenterIfNeeded)

Leserg написал(а):
Новая директива IS_ENHANCED для препроцессора Inno Setup, объявлена по умолчанию;

IS_ENHANCED_VCL легко бы исправило это.

Leserg · 18 Ноя 2020

sergey3695 написал(а):
как сделать проверку используя #ifndef на версию компилятора

@sergey3695, в моих примерах есть проверка версии компилятора. Вот так, например:

Код:

#if !defined(IS_ENHANCED) || (VER < 0x06000500)
  #pragma error "Для компиляции этого сценария требуется расширенная \
                 редакция Inno Setup 6.0.5 или выше"
#endif

Andreo Fadio · 18 Ноя 2020

Leserg написал(а):
Компоненту TNewCheckListBox добавлены свойства "ItemFontStyle" и "SubItemFontStyle

Когда свойство по сворачиванию элементов в компоненте появится?

ALF · 19 Ноя 2020

антивирусы по прежнему недовольны анинсталлером

VirusTotal

www.virustotal.com

Хамик · 19 Ноя 2020

ALF написал(а):
антивирусы по прежнему недовольны анинсталлером

VirusTotal

VirusTotal

www.virustotal.com

И что теперь? Если боитесь, то не пользуйтесь. Тем более вирустотал не показатель.

Andreo Fadio · 19 Ноя 2020

Хамик написал(а):
И что теперь? Если боитесь, то не пользуйтесь.

Какое-то странное суждение вопроса.

Хамик написал(а):
Тем более вирустотал не показатель.

С чего бы это?

ALF написал(а):
антивирусы по прежнему недовольны анинсталлером

На windows defender вообще надежды нет в плане реакции на inno setup. У меня windows 10 Pro лицензия (не активатор, лицензионный образ, базы обновляются сами каждый день), на любой собранный exe из под модифицированной версии выдает такое:

И на согласие разрешения угрозы он все равно выполняет удаление файла))) Что-то сильно изменилось со времен майского- июньского исправления в defender'e за 2020.
+ все еще и от вашей секции код зависит. Я свой на вирус тотал заливал собранный exe реагировали только какие-то малоизвестные антивирусы.

sergey3695 · 19 Ноя 2020

VirusTotal

www.virustotal.com

Andreo Fadio написал(а):
+ все еще и от вашей секции код зависит.

ALF · 20 Ноя 2020

Хамик написал(а):
Если боитесь, то не пользуйтесь.

я не боюсь - я же не для себя любимого создаю инсталяторы с кастомными интерфейсами. Боятся те, кто потом использует эти инсталяторы. И даже если бы не боялись, то виндовый дефендер всё равно не даст им его использовать

Xabib2302 · 21 Ноя 2020

Andreo Fadio написал(а):
Когда свойство по сворачиванию элементов в компоненте появится?

Уж точно не скоро, а может никогда
@Leserg, Добавьте в подпись или в шапку контакты для материальной поддержки на развитие вашей Inno Setup

Leserg · 22 Ноя 2020

Andreo Fadio написал(а):
Когда свойство по сворачиванию элементов в компоненте появится?

Парни, ещё раз: я не умею делать компоненты. Если кто-то сделает - добавлю.

Xabib2302 написал(а):
Уж точно не скоро, а может никогда

Да, скорее всего так и будет.

ALF написал(а):
антивирусы по прежнему недовольны анинсталлером

С этими антивирусами беда полная. Я уже знаю что-делать. Да, сервис VirusTotal не показатель. Но антивирус Microsoft, который установлен дефакто и работает по умолчанию, рубит на корню любой (хоть пустой) инсталлятор или деинсталлятор, созданный в моей модификации. В итоге пользователи не смогут нормально использовать ваши работы. Отсылал файлы в Microsoft - в ответ "спасибо, ложное срабатывание, базы будут обновлены". Но, зараза, файлы-то при сборке и установке все время разные получаются и каждый раз антивирус Microsoft снова трубит о трояне. В общем, баян. Руки опускаются и нет никакого желания что-либо делать дальше.

Xabib2302 · 22 Ноя 2020

@Leserg, такое ощущение, что это какая-то фича от разрабов инки против мододелов, хотя смысл если это опенсоурсный проект.

Leserg · 24 Ноя 2020

Xabib2302 написал(а):
такое ощущение, что это какая-то фича от разрабов инки против мододелов

Нет, это вряд ли.

Можно купить цифровой сертификат и подписывать свои инсталляторы и деинсталляторы, тогда, возможно, детекта вообще не будет. А так с "ветряными мельницами" можно бороться бесконечно.

Le9ent · 24 Ноя 2020

Xabib2302 написал(а):
что это какая-то фича от разрабов инки против мододелов

Скорее антивирусников против инно.
Пример: Examples/Example1.iss
Собран на стоковом Inno:

6.0.5 - VirusTotal
6.1.2 - VirusTotal

В обоих случаях детекты.

Andreo Fadio · 24 Ноя 2020

Le9ent написал(а):
Скорее антивирусников против инно.
Пример: Examples/Example1.iss
Собран на стоковом Inno:

Скорее проблемы именно от 6 версии inno.

Le9ent · 24 Ноя 2020

Andreo Fadio написал(а):
именно от 6 версии inno

Сомнительный аргумент, 6-я версия уже как год назад вышла.
Проблемы с базами антивирусников начались буквально 2-3 месяца назад.

Leserg · 25 Ноя 2020

Сделал очередное обновление Inno Setup v6.0.5 VCL (XP).

1. Графика (только в расширенной версии - FullVCL)
Добавил поддержку изображений в формате JPG и PNG для расширенной редакции.
Новые классы: TPicture и TPngImage.

code_language.pascal:

TPicture = class(TPersistent)
  constructor Create;
  procedure LoadFromStream(Stream: TStream);
  procedure SaveToStream(Stream: TStream);
  procedure LoadFromFile(const Filename: String);
  procedure SaveToFile(const Filename: String);
  property Bitmap: TBitmap; read write;
  property Graphic: TGraphic; read write;
  property Icon: TIcon; read write;
  property Metafile: TMetafile; read write;
  property Height: Integer; read;
  property Width: Integer; read;
  property OnChange: TNotifyEvent; read write;
  property OnProgress: TProgressEvent; read write;
end;

TPngImage = class(TGraphic)
  constructor Create;
  procedure LoadFromStream(Stream: TStream);
  procedure LoadFromFile(const Filename: String);
  procedure LoadFromResourceID(Instance: THandle; ResID: Integer);
  procedure LoadFromResourceName(Instance: THandle; const Name: String);
  procedure Resize(const CX, CY: Integer);
  property Canvas: TCanvas; read;
  property Empty: Boolean; read;
  property Height: Integer; read;
  property Width: Integer; read;
  property Palette: HPalette; read write;
  property TransparentColor: TColor; read write;
  property OnChange: TNotifyEvent; read write;
  property OnProgress: TProgressEvent; read write;
end;

Формат PNG можно загружать как из внешнего файла, так и из ресурсов.
Пример смотрите в файле Examples_ENVCL\Example_PNG-JPG.iss.

Скрин без использования стиля:

Скрин с использование стиля:

2. Панель задач (только в расширенной версии - FullVCL)
В секции [Setup] новая директива TaskBarView со значение по умолчанию False.
Если TaskBarView=True, то в панели задач будет виден эскиз окна установки.

Скрин

Процедуры для использования в секции "Code"
(пример смотрите в файле Examples_ENVCL\Example_TaskBarInfo.iss):

1) procedure SetAppTaskbarProgressState(const State: TTaskbarProgressState);
Позволяет указать состояние прогресс-бара.

Объявление класса TTaskbarProgressState (поддерживаемые значения):
TTaskbarProgressState = (tpsNoProgress, tpsIndeterminate, tpsNormal, tpsError, tpsPaused);

Доступные состояния:

tpsNoProgress - прогресс не отображается

tpsIndeterminate - прогресс бар постоянно мерцает

tpsNormal - обычное отображение прогресса

tpsError - отображение ошибки

tpsPaused - отображение паузы

Пример: SetAppTaskbarProgressState(tpsPaused);

2) procedure SetAppTaskbarProgressValue(const Completed: Cardinal);
Позволяет указать процент выполнения текущей задачи. Действительные значения от 0 до 100.

Пример: SetAppTaskbarProgressValue(10);

3) procedure SetAppTaskbarThumbnailTooltip(const ToolTipStr: String);
Позволяет установить текст всплывающей подсказки при наведении курсора мышки на экскиз.

Пример: SetAppTaskbarThumbnailTooltip('Application');

4) procedure SetAppTaskbarOverlayIconRes(const ResOvIcon: String);
Позволяет добавить иконку состояния к основному значку приложения.
Эта процедура добавляет иконку из ресурсов программы установки.

Пример: SetAppTaskbarOverlayIconRes('_IS_OVICON');

Чтобы добавить иконку в ресурсы инсталлятора, нужно использовать директиву IconResource в секции "Setup".

Пример: IconResource=ovicon>okR.ico, где

ovicon - имя ресурса (любое без пробелов)
okR.ico - файл значка 16х16 пикс. с глубиной цвета 32-бит. Использовать значки большего размера нет смылса, т.к. они все равно будут уменьшены до 16х16.

При записи в ресурсы инсталлятора к имени иконки будет добавлена приставка "_IS_".
Таким образом для загрузки иконки из ресурсов инсталлятора необходимо указать имя "_IS_OVICON".

5) procedure SetAppTaskbarOverlayIconFile(const FileIcon: String);
Процедура аналогичная предыдущей и позволяет добавить иконку состояния к основному значку приложения, но уже из внешнего файла.

Пример: SetAppTaskbarOverlayIconFile(ExpandConstant('{tmp}\okR.ico'));

sergey3695 · 25 Ноя 2020

@Leserg, какой код добавляет эскиз? (имею ввиду в проекте dephi) Для CheckListBox Jpg будет?

Leserg · 25 Ноя 2020

sergey3695 написал(а):
какой код добавляет эскиз? (имею ввиду в проекте dephi)

Код:

procedure TWizardForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if SetupHeader.TaskBarOn then
    // Show Thumbnail Wizard on TaskBar
    Params.WndParent := Application.Handle
  else
    // Hide Thumbnail Wizard on TaskBar (default)
    Params.WndParent := MainForm.Handle;
end;

sergey3695 написал(а):
Для CheckListBox Jpg будет?

Пока нет. Я не знаю, как это сделать.

sergey3695 · 25 Ноя 2020

Leserg написал(а):
Я не знаю, как это сделать.

С помощью BitBlt как вариант. Тут еще LoadBGBmpFromBitmap нету ( печалька.

Inno Setup VCL

Участник

Ветеран

Участник

Старожил

Мимокрокодил

Старожил

Старожил

Ветеран

Мимокрокодил

Новичок

Участник

Новичок

Участник

Новичок

Старожил

Новичок

Участник

Ветеран

Участник

Ветеран