獲取操作系統的類型和版本

　　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) );
　　 }