Как добавить компоненты и информацию из INI-файла в установщик Inno Setup для кастомизации установки

Delphi , Компоненты и Классы , Компоненты

Вопрос пользователя заключается в желании добавить собственные компоненты и информацию об установке для конкретного пользователя на страницу "Ready to Install" (Готов к установке) в установщике Inno Setup. Это возможно благодаря кастомизации установки, и в данном случае необходимо использовать информацию из INI-файла для определения программ, которые должны быть установлены для каждого пользователя.

Пример INI-файла:

[Users]
user1=Program1,Program3
user2=Program1,Program2
user3=Program1,Program3
user4=Program1,Program2

Пример скрипта установки:

[Files]
Source: "TEST \Software\x64\Program_1"; DestDir: "{app}\Program_1"; \
  Flags: ignoreversion recursesubdirs; Check: ShouldInstallProgram('Program1')
Source: "TEST \Software\x64\Program_2"; DestDir: "{app}\Program_2"; \
  Flags: ignoreversion recursesubdirs; Check: ShouldInstallProgram('Program2')
Source: "TEST \Software\x64\Program_3"; DestDir: "{app}\Program_3"; \
  Flags: ignoreversion recursesubdirs; Check: ShouldInstallProgram('Program3')

Функция проверки установки программы:

function ShouldInstallProgram(ProgramName: string): Boolean;
var
  UserName: string;
  ProgramsStr: string;
  Programs: TStringList;
begin
  UserName := WizardSetupType(False);
  ProgramsStr :=
    GetIniString('Users', UserName, '', ExpandConstant('{src}\UserPrograms.ini'));
  Programs := TStringList.Create;
  Programs.CommaText := ProgramsStr;
  Result := (Programs.IndexOf(ProgramName) >= 0);
  Programs.Free;
end;

Решение проблемы:

Чтобы реализовать нужное поведение, необходимо использовать событие UpdateReadyMemo, которое позволяет добавить пользовательский текст на страницу "Ready to Install". Пример реализации этой функции:

function GetUserName: string;
begin
  Result := WizardSetupType(False);
end;

function GetProgramsToInstall: TStrings;
var
  Path: string;
begin
  Result := TStringList.Create;
  Path := ExpandConstant('{src}\UserPrograms.ini');
  Result.CommaText := GetIniString('Users', GetUserName, '', Path);
end;

function ShouldInstallProgram(ProgramName: string): Boolean;
var
  Programs: TStrings;
begin
  Programs := GetProgramsToInstall;
  Result := (Programs.IndexOf(ProgramName) >= 0);
  // Дополнительный код логирования
  Programs.Free;
end;

procedure AddToReadyMemo(var Memo: string; Info, NewLine: string);
begin
  if Info <> '' then Memo := Memo + Info + NewLine + NewLine;
end;

function UpdateReadyMemo(
  Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo,
  MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
  Programs: TStrings;
  I: Integer;
begin
  // Добавление стандартного текста
  AddToReadyMemo(Result, MemoUserInfoInfo, NewLine);
  AddToReadyMemo(Result, MemoDirInfo, NewLine);
  AddToReadyMemo(Result, MemoTypeInfo, NewLine);
  AddToReadyMemo(Result, MemoComponentsInfo, NewLine);
  AddToReadyMemo(Result, MemoGroupInfo, NewLine);
  AddToReadyMemo(Result, MemoTasksInfo, NewLine);

  // Добавление информации о выбранном пользователе
  Result := Result + 'Selected user:' + NewLine + Space + GetUserName + NewLine + NewLine;
  Programs := GetProgramsToInstall;
  if Programs.Count > 0 then
  begin
    Result := Result + 'Components:' + NewLine;
    for I := 0 to Programs.Count - 1 do
      Result := Result + Space + Programs[I] + NewLine;
  end;
  Programs.Free;
end;

После добавления этой функции, установщик Inno Setup будет отображать выбранного пользователя и список программ, которые необходимо установить в соответствии с данными из INI-файла, на странице "Ready to Install".

Пример результата:

Таким образом, разработчики могут добавить дополнительную информацию и компоненты в процесс установки приложения, используя механизмы кастомизации Inno Setup.

Создано по материалам из источника по ссылке.

Вопрос касается добавления пользовательских компонентов и информации для каждого пользователя на страницу 'Ready to Install' в установщике Inno Setup, используя информацию из INI-файла для определения программ, которые необходимо уста

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Компоненты ::