Chinaunix首页 | 论坛 | 博客
  • 博客访问: 350330
  • 博文数量: 100
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 521
  • 用 户 组: 普通用户
  • 注册时间: 2014-10-31 11:37
个人简介

活到老,学到老

文章分类

全部博文(100)

文章存档

2018年(1)

2017年(2)

2016年(11)

2015年(82)

2014年(4)

我的朋友

分类: WINDOWS

2015-09-30 15:26:37

判断系统版本如果在xp或xp以下,程序将自动退出。
  1. function InitializeSetup: Boolean;
  2. var
  3.     Version: TWindowsVersion;
  4. begin
  5.     GetWindowsVersionEx(Version);
  6.     if (Version.Major <6) then
  7.         begin
  8.             SuppressibleMsgBox('该安装程序程序不支持在window xp 及xp以下版本运行。',
  9.             mbCriticalError, MB_OK, MB_OK);
  10.         Result := False;
  11.         Exit;
  12.     end;
  13. Result := True;
  14. end;

阅读(1437) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~