[Nordek]

инсталлятор ругается на "ab_x86" »

Условные значения привёл для "примера", могут быть чем угодно: "ab_x86" или "CheckUpdx86". Лишь бы выполнялось в соответствии поставленным задачам.

Вот сляпал что-то:

Скрытый текст

Код:

[Code]
function WindowsVersion(Major, Minor: Integer): Boolean; var
    Version: TWindowsVersion;
  begin
    GetWindowsVersionEx(Version);
    Result:=(Version.Major = Major);
    Result:=(Version.Minor = Minor);
end;

function WindowsRevVersion: Boolean;
  begin
    Result:=WindowsVersion(6,1);// Далее код будет выполнятся, только если установлена система (6.1)
end;

function ab_x86: Boolean;
begin
  if not WindowsRevVersion then
    else begin
      if not IsWin64 then begin
        if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages\Package_for_KB2533623_SP1~31bf3856ad364e35~x86~~6.1.1.2') then Result:= True
      end;
    end;
end;

function ab_x64: Boolean;
begin
  if not WindowsRevVersion then
    else begin
      if IsWin64 then begin
        if not RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages\Package_for_KB2533623_SP1~31bf3856ad364e35~amd64~~6.1.1.2') then Result:= True
      end;
    end;
end;

Смысл думаю понятен.