当前系统信息

最新推荐文章于 2026-01-08 13:59:32 发布

转载最新推荐文章于 2026-01-08 13:59:32 发布 · 639 阅读

文章标签：

#windows #string #function #build #xp

delphi技巧专栏收录该内容

9 篇文章

订阅专栏

博客给出了一个获取Windows系统信息的函数getSystemInfo。该函数通过判断Win32Platform、Win32MajorVersion和Win32MinorVersion等参数，确定系统版本，如Windows 9x、Windows NT、Windows 2000、Windows XP等，并拼接系统版本、构建号和更新信息作为结果返回。

function getSystemInfo : string;
var
midStr : string;
begin
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS : midStr := 'Windows 9x';

VER_PLATFORM_WIN32_NT : midStr := 'Windows NT';

end;
if Win32MajorVersion >= 5 then
begin
    case Win32MinorVersion of
    0    : midStr := 'Windows 2000';
    1    : midStr := 'Windows XP';
    end;
end;

midStr := midStr + (' Running on Windows:'+IntToStr (Win32MajorVersion)+'.'

+ IntToStr (Win32MinorVersion)+

' ((Build '+IntToStr (Win32BuildNumber)+ ')'+#10#13 +'Update:'+Win32CSDVersion);
result := midStr;
end;