首页 > 代码库 > inno setup判断是Windows系统版本(其实还是Delphi代码,还能检查域控制器和家庭版)

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

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 95/98/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 95/98/Me 和 NT 4.0,SuiteMask 总是为零。)[/align][align=left]3.实例[/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 <> 0 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 = 5) and     (Version.Minor = 0) and     (Version.ServicePackMajor < 4) 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 = 5) and     (Version.Minor = 1) and     (Version.ServicePackMajor < 2) 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代码,还能检查域控制器和家庭版)