获得Windows版本信息程序vb60源代码编写)

获得Windows版本信息程序(vb6.0源代码编写) Dim OSystem As OSVERSIONINFO OSystem.dwOSVersionInfoSize = 148 If GetVersion(OSystem) Then intMajor = OSystem.dwMajorVersion intMinor = OSystem.dwMinorVersion Select Case OSystem.dwPlatformId Case 0 strPlatform = "Windows " + CStr(intMajor) + "." +