获取Windows版本（网上收集）

最新推荐文章于 2024-06-03 23:12:18 发布

jzj_jony

最新推荐文章于 2024-06-03 23:12:18 发布

阅读量901

点赞数

本文链接：https://blog.csdn.net/jzj_jony/article/details/525529

版权

资料收集专栏收录该内容

23 篇文章 0 订阅

订阅专栏

function GetWinVersion: String;
var
     OSName      : String;
begin
     // set the size of the record
     VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );

     if Windows.GetVersionEx( VersionInfo ) then
        begin
           with VersionInfo do
           begin
              case dwPlatformId of
                 VER_PLATFORM_WIN32s   : OSName := 'Win32s';
                 VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows 95';
                 VER_PLATFORM_WIN32_NT      : OSName := 'Windows NT';
              end; // case dwPlatformId
             if osname='Windows NT' then
                begin
                if dwMinorVersion=0 then
                  osname:='Windows 2000'
                else if dwMinorVersion=1 then
                  osname:='Windows XP';
                end;
                  Result := OSName + ' 版本 ' + IntToStr( dwMajorVersion ) + '.' + IntToStr( dwMinorVersion ) +
                        #13#10' (内部版本 ' + IntToStr( dwBuildNumber ) + ': ' + szCSDVersion + ')';
           end; // with VersionInfo
        end // if GetVersionEx
     else
        Result := '';
end;