文件名称：获得Windows版本信息程序(vb6.0源代码编写)
文件大小：8KB
文件格式：RAR
更新时间：2012-02-24 04:30:49
获得Windows版本信息程序(vb6.0源代码编写)
获得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) + "." + CStr(intMinor) Case 1 strPlatform = "Windows 95" Case 2 strPlatform = "Windows NT" End Select Else intMajor = 0 intMinor = 0 strPlatform = "" End If
【文件预览】：
VB090203-获得Windows版本信息
----MSSCCPRJ.SCC(193B)
----获得Windows版本信息()
--------获取系统版本信息.exe(20KB)
--------readme.txt(594B)
----Project1.vbw(93B)
----SI.Frm(2KB)
----System.Cls(1KB)
----Project1.vbp(823B)
----SI.frx(18B)