TOSVersion

最新推荐文章于 2020-09-26 19:29:46 发布

原创最新推荐文章于 2020-09-26 19:29:46 发布 · 483 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#DELPHI

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;
LabeledEditServicePackMajor: TLabeledEdit;
LabeledEditServicePackMinor: TLabeledEdit;
procedure ButtonActWindowsClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonActWindowsClick(Sender: TObject);
begin
Self.LabeledEditToString.Text:=TOSVersion.ToString;
case TOSVersion.Architecture of
arIntelX86:Self.LabeledEditArchitecture.Text:='arIntelX86';
arIntelX64:Self.LabeledEditArchitecture.Text:='arIntelX64';
arARM32:Self.LabeledEditArchitecture.Text:='arARM32';
arARM64:Self.LabeledEditArchitecture.Text:='arARM64';
end;

Self.LabeledEditBuild.Text:=IntToStr(TOSVersion.Build);
Self.LabeledEditMajor.Text:=IntToStr(TOSVersion.Major);
Self.LabeledEditMinor.Text:=IntToStr(TOSVersion.Minor);
Self.LabeledEditName.Text:=TOSVersion.Name;
case TOSVersion.Platform of
pfWindows:Self.LabeledEditPlatform.Text:='pfWindows';
pfMacOS:Self.LabeledEditPlatform.Text:='pfMacOS';
pfiOS:Self.LabeledEditPlatform.Text:='pfiOS';
pfAndroid:Self.LabeledEditPlatform.Text:='pfAndroid';
pfWinRT:Self.LabeledEditPlatform.Text:='pfWinRT';
pfLinux:Self.LabeledEditPlatform.Text:='pfLinux';
end;

Self.LabeledEditServicePackMajor.Text:=IntToStr(TOSVersion.ServicePackMajor);
Self.LabeledEditServicePackMinor.Text:=IntToStr(TOSVersion.ServicePackMinor);
end;

end.