Как проверить наличие конкретного обновления Windows (KB*.msu) на целевом компьютере с помощью Inno Setup?

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

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

Одним из способов проверки наличия конкретного обновления Windows на целевом компьютере является использование WMI (Windows Management Instrumentation). В этом подходе вы можете использовать WMI-класс Win32_QuickFixEngineering для поиска записей, соответствующих указанному номеру исправления (KB).

Вот пример кода на Object Pascal, который проверяет наличие конкретного обновления Windows с помощью WMI:

function IsKBInstalled(KB: string): Boolean;
var
  WbemLocator: Variant;
  WbemServices: Variant;
  WQLQuery: string;
  WbemObjectSet: Variant;
begin
  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  WbemServices := WbemLocator.ConnectServer('', 'root\CIMV2');

  WQLQuery := 'select * from Win32_QuickFixEngineering where HotFixID = ''' + KB + '''';

  WbemObjectSet := WbemServices.ExecQuery(WQLQuery);
  Result := (not VarIsNull(WbemObjectSet)) and (WbemObjectSet.Count > 0);
end;

Эта функция возвращает true, если указанное обновление установлено на целевом компьютере, и false в противном случае.

Вы можете использовать эту функцию в своем коде Inno Setup следующим образом:

if IsKBInstalled('KB2919355') then
begin
  Log('KB2919355 is installed');
end
else
begin
  Log('KB2919355 is not installed');
end;

В этом примере мы проверяем наличие обновления KB2919355 и выводим соответствующее сообщение в журнал.

Важно отметить, что этот подход может не работать на всех версиях Windows. Если у вас возникли проблемы с использованием WMI для проверки наличия обновлений, вы можете попробовать другой подход, использующий Windows Update Agent (WUA). Вот пример кода, который проверяет наличие конкретного обновления с помощью WUA:

function IsUpdateInstalled(KB: String): Boolean;
var
  UpdateSession: Variant;
  UpdateSearcher: Variant;
  SearchResult: Variant;
  I: Integer;
begin
  UpdateSession := CreateOleObject('Microsoft.Update.Session');
  UpdateSearcher := UpdateSession.CreateUpdateSearcher()
  SearchResult := UpdateSearcher.Search('IsInstalled=1')
  for I := 0 to SearchResult.Updates.Count - 1 do
  begin
    if SearchResult.Updates.Item(I).KBArticleIDs.Item(0) = KB then
    begin
      Result := true;
      Exit;
    end;
  end;
  Result := false;
end;

Эта функция возвращает true, если указанное обновление установлено на целевом компьютере, и false в противном случае.

Вы можете использовать эту функцию в своем коде Inno Setup следующим образом:

if IsUpdateInstalled('3020369') then
...

В этом примере мы проверяем наличие обновления с номером KB3020369 и выполняем определенное действие, если оно установлено.

В заключение, существует несколько способов проверить наличие конкретного обновления Windows на целевом компьютере с помощью Inno Setup. В этой статье мы рассмотрели два подхода: использование WMI и использование Windows Update Agent. Вы можете выбрать тот, который лучше всего подходит для ваших целей.

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

Как проверить наличие конкретного обновления Windows (KB*.msu) на целевом компьютере с помощью Inno Setup?

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

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

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