home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Lion Share
/
lionsharecd.iso
/
utils_mz
/
v10n17.zip
/
WINVER.ZIP
/
WINVER3
< prev
next >
Wrap
Text File
|
1991-09-12
|
741b
|
28 lines
Declare Function GetVersion Lib "kernel" () As Integer
Declare Function GetWinFlags Lib "kernel" () As Long
Declare Function GetSystemMetrics Lib "user" \
(nIndex As Integer) As Integer
Function LO(x)
LO = x Mod 256
End Function
Function HI(x)
HI = Int(x / 256)
End Function
Sub MAIN
v = GetVersion
vers$ = "Windows v. " + Str$(LO(v)) + "." + Str$(HI(v))
debug = GetSystemMetrics(22) ' SM_DEBUG
If debug Then vers$ = vers$ + " (Debug)"
flags = GetWinFlags
If flags And 1 = 0 Then mode$ = "Real mode"
If flags And 16 Then mode$ = "Standard (286) mode"
If flags And 32 Then mode$ = "Enhanced (386) mode"
MsgBox vers$ + Chr$(10) + mode$, "WINVER"
End Sub