Inno Setup Pascal Scriptを使用して現在のOSがWindows 8.1であることを確認してください

Question

現在のOSがWindows 8.1であるかどうかを確認したいと思います。

これは現在のWindowsバージョンのNTバージョン番号（6.3）を解析することで解決できますが、パスカルスクリプトでどのように行うのか分かりません。

擬似コード：

// Occurs when the installer initializes. 
function InitializeSetup(): Boolean; 
begin 
    if IsWindows81 then 
    begin 
     Result := IsKBInstalled('KB2919355'); 
     if not Result then 
     MsgBox('Windows Update package "KB2919355" not found.', mbError, MB_OK); 
     end; 
    else 
     begin 
     Result := True 
     end; 
end; 

Answer 1

のWindows 8.1はWindows version 6.3です。

最も簡単には（MI N又は、B uild、M ajor）$MMNNBBBBあるGetWindowsVersion function、の戻り値をチェックすることです。

function IsWindows81OrLater: Boolean; 
begin 
    Result := (GetWindowsVersion >= $06030000); 
end; 

あなたは、Windowsのみ8.1のために使用をチェックしたい場合は、次の（再）回答を

function IsWindows81: Boolean; 
begin 
    Result := (GetWindowsVersion >= $06030000) and (GetWindowsVersion <= $0603FFFF); 
end;