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

[jhlcss]

谢谢

[supergreenbean]

使用 GetVersionEx

[ryuginka]

//放一个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

[broown]

这是在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;
}