Извлечение версии файла MSI в Inno Setup и Delphi с помощью скрипта PowerShell

Delphi , Программа и Интерфейс , Инсталяция

Привет, разработчики! Сегодня мы рассмотрим проблему, с которой столкнулись многие специалисты по Inno Setup и Delphi: извлечение версии файла MSI с помощью скрипта PowerShell. Не волнуйтесь, мы найдем решение, которое поможет вам справиться с этой задачей.

Введение

MSI (Microsoft Installer) — это формат установщика, широко используемый в Windows. Часто нам нужно извлечь информацию о версии MSI-файла для различных целей, таких как отслеживание версий программного обеспечения или автоматическое обновление. В этом руководстве мы покажем, как извлечь версию MSI-файла в Inno Setup и Delphi с помощью скрипта PowerShell.

Проблема

Некоторые пользователи столкнулись с трудностями при попытке извлечь версию MSI-файла в Inno Setup и Delphi, используя скрипт PowerShell в качестве ориентира. Несмотря на то, что скрипт PowerShell работал исправно, код в Inno Setup и Delphi вызывал исключение "Тип не совпадает", когда пытался получить данные из записи.

Решение

После некоторых исследований мы обнаружили, что проблема заключается в том, как мы пытаемся получить данные из записи. Чтобы решить эту проблему, мы можем использовать следующую строку кода:

string_variable := rec.StringData[1];

Этот код извлекает версию MSI-файла и назначает ее переменной string_variable. Теперь давайте посмотрим, как это можно применить в коде Inno Setup и Delphi.

Inno Setup

Вот пример функции, извлекающей версию MSI-файла в Inno Setup:

[Setup]
AppName=My Program
AppVersion=1.5
OutputDir=C:\Temp\Output
OutputBaseFilename=Setup
Compression=lzma
SolidCompression=yes

[Files]
Source: "C:\Path\To\Your\My.msi"; DestDir: "{app}"; Flags: ignoreversion

[Code]
function GetMSIVersion(MSIFile: string): string;
var
  installer: Variant;
  database: Variant;
  sql: string;
  view: Variant;
  rec: Variant;
begin
  Result := '';
  CoInitialize(nil);
  installer := CreateOleObject('WindowsInstaller.Installer');
  database := installer.OpenDatabase(MSIFile, 0);
  sql := 'SELECT Value FROM Property WHERE Property = ''ProductVersion''';
  view := database.OpenView(sql);
  view.Execute();
  rec := view.Fetch();
  Result := rec.StringData[1];
end;

procedure InitializeWizard;
begin
  MsgBox(Format('MSI Version: %s', [GetMSIVersion('{src}\My.msi')]), mbInformation, MB_OK);
end;

В этом примере мы создаем функцию GetMSIVersion, которая извлекает версию MSI-файла и возвращает ее в виде строки. В разделе [Code] мы определяем процедуру InitializeWizard, которая отображает сообщение с версией MSI-файла при запуске установщика.

Delphi

Теперь давайте посмотрим, как извлечь версию MSI-файла в Delphi:

program GetMSIVersion;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  WindowsInstaller;

function GetMSIVersion(MSIFile: string): string;
var
  installer: Variant;
  database: Variant;
  sql: string;
  view: Variant;
  rec: Variant;
begin
  Result := '';
  CoInitialize(nil);
  installer := CreateOleObject('WindowsInstaller.Installer');
  database := installer.OpenDatabase(MSIFile, 0);
  sql := 'SELECT Value FROM Property WHERE Property = ''ProductVersion''';
  view := database.OpenView(sql);
  view.Execute();
  rec := view.Fetch();
  Result := rec.StringData[1];
end;

begin
  Writeln(Format('MSI Version: %s', [GetMSIVersion('C:\Path\To\Your\My.msi')]));
  Readln;
end.

В этом примере мы создаем функцию GetMSIVersion, аналогичную той, что мы использовали в Inno Setup. В основном блоке кода мы вызываем эту функцию и выводим версию MSI-файла в консоль.

Заключение

В сегодняшнем руководстве мы рассмотрели проблему извлечения версии MSI-файла в Inno Setup и Delphi с помощью скрипта PowerShell. Мы обнаружили, что проблема заключается в том, как мы пытаемся получить данные из записи, и решили ее, изменив способ получения данных из записи. Теперь вы можете использовать приведенные выше примеры кода, чтобы извлечь версию MSI-файла в своих проектах Inno Setup и Delphi.

Если у вас есть другие проблемы или вопросы, связанные с разработкой в Inno Setup или Delphi, не стесняйтесь оставлять комментарии ниже. Мы всегда рады помочь!

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

В данном контексте речь идет о решении проблемы извлечения версии файла MSI в Inno Setup и Delphi с помощью скрипта PowerShell.

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

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

:: Главная :: Инсталяция ::