Win9x / WinNT

[speek]

Short question:
How to determine automatically (without user input) if the OS is Win9x or WinNT?

 

[MrEGuest]

here is some code from vbapi.com:

Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Dim os As OSVERSIONINFO ' receives version information
Dim retval As Long ' return value

os.dwOSVersionInfoSize = Len(os) ' set the size of the structure
retval = GetVersionEx(os) ' read Windows's version information
Debug.Print "Windows version number:"; os.dwMajorVersion; "."; os.dwMinorVersion


Hope this gets you on the right track!
Josh

 

[speek]

Thanx Josh!

Maybe I can use this, but I would rather just know if it's Windows9x or WinNT. So only two possibilities. Anbody has code for that?

 

[Jon4747]

Hi speek,

Use a SysInfo control

MyVar = SysInfo1.OSPlatform
' where 0 = unknown, 1 = win95/98, 2 = nt

Jon

 

[speek]

Thanx Jon4747, that's exactly what I need. Is a Sysinfo control included in standard VB6 or can I find it somewhere on the net?

 

[speek]

Found it. Works fine Thanx for your help.