Вопрос Как запретить запуск инстяллятора на Win XP и 32-битных системах?

[zettend]

Как запретить запуск инстяллятора на Win XP и 32-битных системах?

 

[Kotyarko_O]

dEf0lT, для определения ОС, можно использовать GetWindowsVersionEx. Версии ОС есть тут.
Для определения разрядности есть IsWin64.

 

[Хамик]

dEf0lT,

Спойлер: Не проверял. Нету XP.

[setup]
appname=app
appvername=app 1.0
DefaultDirName={sd}\app
ArchitecturesAllowed=x64
ArchitecturesInstallIn64BitMode=x64

[code]
function IsNotWinXP(): Boolean;
var
  Version: TWindowsVersion;
begin
  GetWindowsVersionEx(Version);
  if (Version.Major = 5) and
     (Version.Minor = 1) and
     (Version.ProductType <> VER_NT_WORKSTATION)
  then
  begin
  MsgBox('Windows XP is not supported!', mbError, MB_OK);
    Result := False
  end else
    Result := True;
end;

function InitializeSetup(): Boolean;
begin
   Result := IsNotWinXP;
end;

 

[Ekspoint]

dEf0lT,

Спойлер: Не проверял. Нету XP.

[setup]
appname=app
appvername=app 1.0
DefaultDirName={sd}\app
ArchitecturesAllowed=x64
ArchitecturesInstallIn64BitMode=x64

[code]
function IsNotWinXP(): Boolean;
var
  Version: TWindowsVersion;
begin
  GetWindowsVersionEx(Version);
  if (Version.Major = 5) and
     (Version.Minor = 1) and
     (Version.ProductType <> VER_NT_WORKSTATION)
  then
  begin
  MsgBox('Windows XP is not supported!', mbError, MB_OK);
    Result := False
  end else
    Result := True;
end;

function InitializeSetup(): Boolean;
begin
   Result := IsNotWinXP;
end;

можно и так

function IsNotWinXP(): Boolean;
begin
  if (GetWindowsVersion shr 24) = 5 then
  begin
  MsgBox('Windows XP is not supported!', mbError, MB_OK);
    Result := False
  end else
    Result := True;
end;

function InitializeSetup(): Boolean;
begin
   Result := IsNotWinXP;
end;