[ZVSRus]

Vanadiy777,

Тестируй

Код:

[Setup]
 AppName=My Application
 AppVersion=1.5
 DefaultDirName={pf}\My Application
 OutputDir=.

[Code**]
function IsWindowsVersionOrNewer(Major, Minor: Integer): Boolean;
var
  Version: TWindowsVersion;

begin
  GetWindowsVersionEx(Version);
  Result:= (Version.Major > Major) or ((Version.Major = Major) and (Version.Minor >= Minor));
end;

function InitializeSetup(): Boolean;
begin
  if IsWindowsVersionOrNewer(10, 0) then Result:= True else
    MsgBox('Версия Windows не соответствует требуемым параметрам', mbError, MB_OK);
end;