请选择 进入手机版 | 继续访问电脑版

为学日益

 找回密码
 立即注册
为学日益 专栏文章 查看内容

delphi 判断操作系统版本一例

2019-8-6 11:09| 发布者: finer| 查看: 364| 评论: 0

摘要: 早期delphi需要用 GetVersionExA 函数然后写一堆代码来实现。 xe以后增加了 TOSVersion 类
在编程当中我们有时需要判断操作系统的版本号。
早期delphi需要用 GetVersionExA 函数然后写一堆代码来实现。
xe以后增加了 TOSVersion 类
TOSVersion.ToString:Windows 10 (Version 10.0, Build 17763, 64-bit Edition)
TOSVersion.Major:10
TOSVersion.Minor:0
TOSVersion.Build:17763
TOSVersion.Architecture:arIntelX64
TOSVersion.Name:Windows 10
TOSVersion.ServicePackMajor:SP主版本号(如XP SP3,显示3)
TOSVersion.ServicePackMinor:SP次版本号

比如这个代码可以判断并显示xp
if sametext(TOSVersion.Name,'Windows XP') then
   begin
    self.Caption:= self.Caption+' '+ TOSVersion.Name;
    //其他代码
   end;

路过

雷人

握手

鲜花

鸡蛋

最新评论

为学日益  浙ICP备19024182号   浙公网安备 33078202001030号

GMT+8, 2020-7-13 20:20 , Processed in 0.049885 second(s), 15 queries .

Powered X3.4

© 2001-2017

返回顶部