delphi 判断操作系统版本一例

2019-8-6 11:09| 发布者: finer| 查看: 8233| 评论: 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;

上一篇：delphi 下nethttpclient和idhttp的一些异同下一篇：用 pdfium.dll 打开超大pdf错误解决一例

相关分类