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