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(OSN...[ 查看全文 ]