void __fastcall TForm1::Button2Click(TObject *Sender)
{
  OSVERSIONINFO info ;
  info.dwOSVersionInfoSize = sizeof (info) ;
  GetVersionEx (&info) ;

  switch (info.dwPlatformId)
  {
  case VER_PLATFORM_WIN32s:
    Label1->Caption = "System:  Windows Win 32s" ;
    break ;
  case VER_PLATFORM_WIN32_WINDOWS:
    if(info.dwMinorVersion == 10){
      Label1->Caption = "System:  Windows 98" ;
    }else{
      Label1->Caption = "System:  Windows 95" ;
    }
    break ;
  case VER_PLATFORM_WIN32_NT:
    switch(info.dwMajorVersion)
    {
      case 3:
        Label1->Caption ="System:  Windows NT 3.51";
        break;
      case 4:
        Label1->Caption ="System:  Windows NT 4.0";
        break;
      case 5:
        Label1->Caption ="System:  Windows 2000";
        break;
      default:
        Label1->Caption = "System:  Windows NT" ;
        break;
    }
    break ;
  default:
    Label1->Caption = "System:  Unknown" ;
    break ;
  }
  Label2->Caption = String ("Version: ")
    + String ((int) info.dwMajorVersion) + "." + String((int)info.dwMinorVersion) ;
  Label3->Caption = String ("Build:  ") + String ((int) (info.dwBuildNumber & 0xFFFF)) ;
  Label4->Caption = String ("System Info:  '") + info.szCSDVersion + "'" ;
}

.끝.

신현섭 님이 쓰신 글 :
: 98인지 2000인지 알수 있는 방법 아시는분....
: API있나요? 아님
: 레지스트리 키 값이라도 아시는분 코멘트 주십시요