GetWinFlags is a good way but the SysInfo control is easier:
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
--
Kerry B. Rogers, President
The Pentone Group, Inc.
Visit us at http://www.pentone.com
Home of ModPeek32:
---- Sample ModPeek32 Listing ---
This Exe
Needs This DLL
Which Needs This DLL
Which... (you get the picture)
-------------- End of Sample --------------