获取 Windows 版本号单元
来源:互联网 发布:中位值评标计算法 编辑:程序博客网 时间:2024/05/27 16:41
本文来自delphi盒子。作者:Popzone
unit uWindowsVersion;
interface
uses
Windows, SysUtils;
const
TStrWindowsVersion : array [0..8] of String = ('Windows 3.x',
'Windows 95',
'Windows 98/Me',
'Windows Nt 4.0',
'Windows 2000',
'Windows XP',
'Windows Server 2003',
'Windows Vista',
'Windows Server 2008');
Win3x = $03000000;
Win95 = $04000000;
Win98ME = $04010000;
WinNT40 = $04020000;
Win2000 = $05000000;
WinXP = $05010000;
Win2003 = $05020000;
WinVista = $06000000;
Win2008 = $06000100;
TYPE
TWinVer = Packed Record
dwVersion : DWORD;
sVerSion : String;
end;
function GetWindowsVersion: TWinVer;
implementation
function GetWindowsVersion: TWinVer;
begin
case Win32Platform of
VER_PLATFORM_WIN32s: // Windows 3.X平台
begin
Result.dwVersion := Win3x;
Result.sVerSion := TStrWindowsVersion[0];
end;
VER_PLATFORM_WIN32_WINDOWS: // Windows 9x/ME 平台
if ((Win32MajorVersion > 4 ) or
((Win32MajorVersion = 4 ) and (Win32MajorVersion > 0 ))) then
begin
Result.dwVersion := win98ME;
Result.sVerSion := TStrWindowsVersion[2];
end
else
begin
Result.dwVersion := Win95;
Result.sVerSion := TStrWindowsVersion[1];
end;
VER_PLATFORM_WIN32_NT: // Windows NT 平台
case Win32MajorVersion of //
4: begin
Result.dwVersion := WinNT40;
Result.sVerSion := TStrWindowsVersion[3];
end;
5: begin
case Win32MinorVersion of //
0: begin
Result.dwVersion := Win2000;
Result.sVerSion := TStrWindowsVersion[4];
end;
1: begin
Result.dwVersion := WinXP;
Result.sVerSion := TStrWindowsVersion[5];
end;
2: begin
Result.dwVersion := Win2003;
Result.sVerSion := TStrWindowsVersion[6];
end;
end; // case
end;
6: begin
case Win32BuildNumber of //
6000: begin
Result.dwVersion := WinVista;
Result.sVerSion := TStrWindowsVersion[7];
end;
6001: begin
Result.dwVersion := Win2008;
Result.sVerSion := TStrWindowsVersion[8];
end;
end; // case
end;
end; // case
end;
end;
end.
- 获取 Windows 版本号单元
- 获取Windows系统版本号
- windows版本号的获取
- 获取Windows系统版本号
- 获取Windows系统版本号
- 获取 Windows 系统版本号
- 获取Windows系统版本号
- 获取windows系统版本号 [GetVersionEx]
- windows获取.exe文件版本号
- 使用Delphi在windows下获取版本号以及对比版本号
- 版本号获取
- 获取版本号
- 获取版本号
- 获取版本号
- 获取版本号
- 获取版本号
- C#获取WIndows版本号截止至Windows2003Server版本
- 获取Windows系统版本号以及位数(兼容Win8)
- VSTS强制删除死锁项
- QTimer的应用总结
- 曙海教育集团论坛-在DSP6000中怎样编写您的第一个程序(1)
- LINUX 编程方面学习 - 获取硬盘空间
- VC 取高低字节的具体含义
- 获取 Windows 版本号单元
- background-position
- 学习散记11之---文件和文件组体系结构
- boost exception
- Java线程的6种状态
- MFC下按钮自绘的实现(二)
- 真正的程序员,请你站出来
- 分类-博文名称
- exel导出相关对应