TOSVersion

最新推荐文章于 2023-03-23 11:58:31 发布

cncqly

最新推荐文章于 2023-03-23 11:58:31 发布

阅读量441

点赞数

文章标签： DELPHI

本文链接：https://blog.csdn.net/cncqly/article/details/87861570

版权

这篇博客介绍了如何使用TOSVersion对象获取Windows操作系统的版本、架构、名称、SP版本等详细信息，并展示了在Delphi中如何将这些信息显示到界面组件上。

摘要由CSDN通过智能技术生成

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次版本号

unit unitMain;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
TForm1 = class(TForm)
ButtonActWindows: TButton;
LabeledEditToString: TLabeledEdit;
LabeledEditArchitecture: TLabeledEdit;
LabeledEditBuild: TLabeledEdit;
LabeledEditMajor: TLabeledEdit;
LabeledEditMinor: TLabeledEdit;
LabeledEditName: TLabeledEdit;
LabeledEditPlatform: TLabeledEdit;