inno setup 判断系统版本

判断系统版本如果在xp或xp以下，程序将自动退出。

function InitializeSetup: Boolean;
var
    Version: TWindowsVersion;
begin
    GetWindowsVersionEx(Version);

    if (Version.Major <6)  then
        begin
            SuppressibleMsgBox('该安装程序程序不支持在window xp 及xp以下版本运行。',
            mbCriticalError, MB_OK, MB_OK);
        Result := False;
        Exit;
    end;

Result := True;
end;