 |
BCX Console Demonstration Program S101.bas
|
PRINT
OsVersion$(
)
, " detected"
FUNCTION
OsVersion$(
)
DIM
os AS
OSVERSIONINFO
os.dwOSVersionInfoSize =
SIZEOF
(
os)
IF
GetVersionEx(
&
os)
THEN
SELECT
CASE
os.dwPlatformId
CASE
1
IF
os.dwMinorVersion =
0
THEN
IF
os.szCSDVersion[
1
]
<> 66
AND
os.szCSDVersion[
1
]
<> 67
THEN
FUNCTION
=
"Windows 95"
END
IF
IF
os.szCSDVersion[
1
]
=
66
OR
os.szCSDVersion[
1
]
=
67
THEN
FUNCTION
=
"Windows 95 OSR2"
END
IF
END
IF
IF
os.dwMinorVersion =
10
THEN
IF
os.szCSDVersion[
1
]
=
65
THEN
FUNCTION
=
"Windows 98 Second Edition"
END
IF
IF
os.szCSDVersion[
1
]
<> 65
THEN
FUNCTION
=
"Windows 98"
END
IF
END
IF
IF
os.dwMinorVersion =
90
THEN
FUNCTION
=
"Windows Millennium"
END
IF
CASE
2
' Windows NT 3.51
IF
os.dwMajorVersion =
3
THEN
FUNCTION
=
"Windows NT 3.51"
END
IF
IF
os.dwMajorVersion =
4
THEN
FUNCTION
=
"Windows NT 4.0"
END
IF
IF
os.dwMajorVersion =
5
THEN
IF
os.dwMinorVersion =
0
THEN
FUNCTION
=
"Windows 2000"
END
IF
IF
os.dwMinorVersion =
1
THEN
FUNCTION
=
"Windows XP"
END
IF
END
IF
END
SELECT
END
IF
FUNCTION
=
0
END
FUNCTION