请问用vb如何判断是2003还是2000系统

Question

谢谢

Answer 1

//放一个SysInfo控件,返回值是5的是WIN200PRO
Private Sub Command1_Click()
   Dim MsgEnd As String
   Select Case SysInfo1.OSPlatform
      Case 0
         MsgEnd = "Unidentified"
      Case 1
         MsgEnd = "Windows 95, ver. " & CStr(SysInfo1.OSVersion)
      Case 2
         MsgEnd = "Windows NT, ver. " & CStr(SysInfo1.OSVersion)
   End Select
   MsgBox "System: " & MsgEnd
End Sub

Answer 2

这是在VC中用过的代码////////////////////////////////////////////////////////////////
// 检测操作系统版本（Windows 2000 或以后）的函数
//BOOL IsWin2000 () 
{
   OSVERSIONINFOEX osvi;
   BOOL bOsVersionInfoEx;   // 尝试调用 GetVersionEx 函数，使用 OSVERSIONINFOEX 结构,
   // 它被Windows 2000支持.
   //
   // 如果调用失败, 尝试使用 OSVERSIONINFO 结构.   ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));
   osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);   if( !(bOsVersionInfoEx = GetVersionEx ((OSVERSIONINFO *) &osvi)) )
   {
      // 如果 OSVERSIONINFOEX 不行, 就用 OSVERSIONINFO.      osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
      if (! GetVersionEx ( (OSVERSIONINFO *) &osvi) ) 
         return FALSE;
   }   switch (osvi.dwPlatformId)
   {
      case VER_PLATFORM_WIN32_NT:         if ( osvi.dwMajorVersion >= 5 )
            return TRUE;         break;
   }
   return FALSE; 
}