取系统信息

最新推荐文章于 2025-05-16 16:59:30 发布

转载最新推荐文章于 2025-05-16 16:59:30 发布 · 502 阅读

012-01-06 18:11:14| 分类： delphi xe2|举报|字号订阅

01.uses
02. System.SysUtils;
03.
04.procedure TForm1.FormCreate(Sender: TObject);
05.begin
06.
07. //系统信息：Windows 7 (Version 6.1, Build 7600, 32-bit Edition)
08. ShowMessage(TOSVersion.ToString);
09.
10. //系统版本
11. ShowMessage(Format('Name:%s Major:%d Minor:%d Build:%d',[
12.    TOSVersion.Name,
13.    TOSVersion.Major,
14.    TOSVersion.Minor,
15.    TOSVersion.Build
16. ]));
17.
18. //系统类型
19. case TOsVersion.Platform of
20.    pfWindows:ShowMessage('Windows');
21.    pfMacOs:ShowMessage('Mac');
22. end;
23.
24. //系统架构
25. case TOSVersion.Architecture of
26.    arIntelX64:ShowMessage('64位');
27.    arIntelX86:ShowMessage('32位');
28. end;
29.
30. //系统检测
31. if TOSVersion.Check(6,1) then ShowMessage('True');
32.
33.end;