技术文章 > 获取操作系统的类型和版本

获取操作系统的类型和版本

2018-02-24 20:00

文档管理软件,文档管理系统,知识管理系统,档案管理系统的技术资料:

TOSVersionInfo VerInfo;
AnsiString OSName;
VerInfo.dwOSVersionInfoSize = sizeof(VerInfo);
if( GetVersionEx( &VerInfo ) )
{
switch( VerInfo.dwPlatformId )
{
case VER_PLATFORM_WIN32s:
OSName = "Win32s";
break;
case VER_PLATFORM_WIN32_WINDOWS:
OSName = "Windows 95/98";
break;
case VER_PLATFORM_WIN32_NT:
OSName = "Windows NT";
break;
default:
break;
}
ShowMessage(OSName + IntToStr( VerInfo.dwMajorVersion ) +
IntToStr(VerInfo.dwMinorVersion) );
}
--------------------------------------------------------------------------------