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

jhlcss 2004-05-08 06:51:56
谢谢
...全文
20 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
broown 2004-05-09
这是在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;
}
  • 打赏
  • 举报
回复
ryuginka 2004-05-08
//放一个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

  • 打赏
  • 举报
回复
supergreenbean 2004-05-08
使用 GetVersionEx
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7543

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-05-08 06:51
社区公告
暂无公告