1.设置Windows最低版本要求

[Setup]: MinVersion

格式: a.bb,c.dd,这里 a.bb 是 Windows 版本,c.dd 是 Windows NT 版本。

默认值: 4.0,4.0

   描述:这个指令让你指定你的软件运行必须的 Windows 或 Windows NT 版本最小版本,要防止你的程序在 Windows 或 Windows NT 下运行,请在最小版本中的一个指定“0”。构建号和/或安全服务包级别可以包含在版本号中。如果用户系统不适合最小版本需求,安装程序将出现一个错误消息并退出。
段判断系统版本[/b][/align][align=left]   语法:procedure GetWindowsVersionEx(var Version: TWindowsVersion);[/align][align=left]   描述:返回记录中有关 Windows 版本的扩展信息。[/align][align=left]   [b]TWindowsVersion[/b] 定义: [/align][align=left]   TWindowsVersion = record[/align]       Major: Cardinal;                    // 主版本号
Minor: Cardinal; // 副版本号
Build: Cardinal; // 构建号
ServicePackMajor: Cardinal; // 服务包主版本号
ServicePackMinor: Cardinal; // 服务包副版本号
NTPlatform: Boolean; // 如果是基于 NT 平台则为 True
ProductType: Byte; // 产品类型 (看下面)
SuiteMask: Word; // 安装的产品组件 (看下面) end; [align=left] [b]ProductType[/b] 对象取值可以是下列值中的一个:[/align][align=left] VER_NT_WORKSTATION // 表示非服务器版本的 Windows (例如工作站、专业版或家庭版)[/align] VER_NT_DOMAIN_CONTROLLER
VER_NT_SERVER
[align=left] (如果用户运行于 Windows //Me,或产品类型不能确定,它也可以是零。)[/align][align=left] [b]SuiteMask[/b] 对象取值可以是下列值的组合: [/align][align=left] VER_SUITE_BACKOFFICE[/align] VER_SUITE_BLADE // 设置在网络版的 Windows Server 2003
VER_SUITE_DATACENTER
VER_SUITE_ENTERPRISE
VER_SUITE_EMBEDDEDNT
VER_SUITE_PERSONAL // 设置在比如家庭版的 Windows XP
VER_SUITE_SINGLEUSERTS
VER_SUITE_SMALLBUSINESS
VER_SUITE_SMALLBUSINESS_RESTRICTED
VER_SUITE_TERMINAL
[align=left] (在 Windows //Me 和 NT 4.0,SuiteMask 总是为零。)[/align]
[align=left].实例[/align][align=left] 下面的例子告诉你可以怎样在某些版本的 Windows 中不接受安装,并在多个操作系统版梧检查服务包等级。[/align][code][Code]
function InitializeSetup: Boolean;
var
Version: TWindowsVersion;
S: String;
begin
GetWindowsVersionEx(Version); // 不接受在家庭版的 Windows 中安装
if Version.SuiteMask and VER_SUITE_PERSONAL <> then
begin
SuppressibleMsgBox('这个程序不能安装于家庭版的 Windows。',
mbCriticalError, MB_OK, MB_OK);
Result := False;
Exit;
end; // 不接受在域控制器中安装
if Version.ProductType = VER_NT_DOMAIN_CONTROLLER then
begin
SuppressibleMsgBox('这个程序不能安装于域控制器。',
mbCriticalError, MB_OK, MB_OK);
Result := False;
Exit;
end; // 在 Windows 2000,检查 SP4
if Version.NTPlatform and
(Version.Major = ) and
(Version.Minor = ) and
(Version.ServicePackMajor < ) then
begin
SuppressibleMsgBox('在 Windows 2000 运行时,必须安装 Service Pack 4。',
mbCriticalError, MB_OK, MB_OK);
Result := False;
Exit;
end; // 在 Windows XP 中,检查 SP2
if Version.NTPlatform and
(Version.Major = ) and
(Version.Minor = ) and
(Version.ServicePackMajor < ) then
begin
SuppressibleMsgBox('在 Windows XP 运行时,必须安装 Service Pack 2。',
mbCriticalError, MB_OK, MB_OK);
Result := False;
Exit;
end; Result := True;
end;

https://zhidao.baidu.com/question/184517203.html

http://www.sgzystudio.cn/forum.php?mod=viewthread&tid=166

inno setup判断是Windows系统版本(其实还是Delphi代码,还能检查域控制器和家庭版)的更多相关文章

  1. Windows 系统版本判断

    Windows 系统版本判断 博客分类: C/C++   很多情况下,需要软件判断操作系统,其实网上写的都很少,我希望这篇文章能给大家帮助 首先我们要在.h中定义下面的东西 #define PRODU ...

  2. Windows系统版本判定那些事儿

    v:* { } o:* { } w:* { } .shape { }p.MsoNormal,li.MsoNormal,div.MsoNormal { margin: 0cm; margin-botto ...

  3. Windows系统版本判定那些事儿[转]

    Windows系统版本判定那些事儿 转自CSDN,原文链接,我比较不要脸, 全部给复制过来了 前言 本文并不是讨论Windows操作系统的版本来历和特点,也不是讨论为什么没有Win9,而是从程序员角度 ...

  4. android API版本对应的系统版本及Android获取手机和系统版本等信息的代码

    学了这么久的Android,竟然一直对其API对应的名称关系一值搞不清楚,现在网上认真看了下资料,转载一个觉得写得不错的作者的文章,记下来: [背景] 之前折腾android期间,慢慢地知道了,And ...

  5. INNO SETUP 5.5.0以上版本中文语言包

    ; *** Inno Setup version 5.5.0+ Chinese messages ***;; To download user-contributed translations of ...

  6. 20181017 work - Inno Setup 禅道 xp系统 楷体字体 win10倒计时 nwjs chosen

    win10 闹钟和时钟 用个倒计时 Inno Setup 编译器 把应用程序打包成安装程序 nwjs-v0.14.7-win-ia32 XP专用 chrome用的49的版本 作用是把浏览器地址的程序打 ...

  7. Windows系统版本判定那些事儿(有图,各种情况,很清楚)

    前言 本文并不是讨论Windows操作系统的版本来历和特点,也不是讨论为什么没有Win9,而是从程序员角度讨论下Windows获取系统版本的方法和遇到的一些问题.在Win8和Win10出来之后,在获取 ...

  8. (Inno setup打包)检测系统是否已安装程序,若已安装则弹出卸载提示的代码

    原文 http://bbs.itiankong.com/thread-30983-1-5.html 有6天没研究pascal代码了,昨天晚上突然来了灵感,终于解决了苦思冥想好几天没能解决的问题, 因此 ...

  9. Delphi 10.3版本获取windows系统版本和CPU信息

    procedure TForm1.Button1Click(Sender: TObject); var mm:TRegistry; cpu:string; begin mm:=TRegistry.Cr ...

随机推荐

  1. [无人值守安装操作系统]__RHEL6__FTP+TFTP+DHCP+Kickstart+PXE

    实验环境 1.实验平台:VMware Workstation 10 2.实验OS:RHEL6 3.服务器A: (1) 10.0.10.158 (2) DHCP/FTP/TFTP (3) 有可使用的yu ...

  2. 基于.net mvc的校友录(源程序)

    废话不多说,上程序再说: http://pan.baidu.com/s/11MnLo 我.net mvc4的正式学习时长,其实也就一个多月,期间除去玩游戏.听歌.谈恋爱,也就半个月,大神请轻喷~~ 转 ...

  3. Daily Scrum4

    今天我们小组开会内容分为以下部分: part1:与负责这个项目的其他组进行会晤; part2:组内成员召开了简短会议,进行工作安排; part3:总结今日工作,对项目遇到的问题商讨解决办法; ◆Par ...

  4. jquery,js引入css文件,js引入头尾

    jquery,js引入css文件,js引入头尾 今天在项目中,需要把20多个页面加上头和尾部,头和尾是我写的,所以小师傅把这个工作交给我了. 我开始往里面加,先引入common.css,在body开始 ...

  5. (转载)HTML:模拟链接被按下,在新标签页打开页面,不使用window.open(可能被拦截)

    原文: http://www.cppblog.com/biao/archive/2010/08/21/124196.html 当按下一个按钮时,想打开一个新的标签页,可以使用window.open去实 ...

  6. 老周的ABP框架系列教程 -》 一、框架理论初步学习

    老周的ABP框架系列教程 -- 一.框架理论初步学习   1. ABP框架的来源与作用简介 1.1  简介 1.1.1       ABP框架全称为"ASP.NET Boilerplate ...

  7. 中断(interrupt)、异常(exception)、陷入(trap)

    原文出处:http://lhk518.blog.163.com/blog/static/3153998320084263554749/ 中断:是为了设备与CPU之间的通信.典型的有如服务请求,任务完成 ...

  8. Leetcode#123 Best Time to Buy and Sell Stock III

    原题地址 最直观的想法就是划分成两个子问题,每个子问题变成了:求在某个范围内交易一次的最大利润 在只能交易一次的情况下,如何求一段时间内的最大利润?其实就是找股价最低的一天买进,然后在股价最高的一天卖 ...

  9. 在linux中使用phpize安装php扩展模块

    介绍:linux系统中,php安装成功后,在bin目录下会生成一个名叫phpize的可执行脚本,这个脚本的用途是动态安装php扩展模块.使用phpize脚本安装php扩展模块的好处:在安装php时没有 ...

  10. 《EnterLib PIAB深入剖析》系列博文汇总_转

    转: http://www.cnblogs.com/artech/archive/2008/08/08/1263418.html