IsWin95(); IsWin98(); IsWinNt()

Who knows how get what is the OS, then I'll create 3 functions:

IsWin95(); IsWin98(); IsWinNt()

Jefferson
Thanks in advance.

A search of the BB found this
http://www.vb-world.net/ubb/Forum1/HTML/010668.html :rolleyes:

------------------
- Chris
[email protected]
If it ain't broke - don't fix it :)

What keys did you type to get the animated face? I can do these :) :( ;) ;( !!!!!

David Richardson

<IMG SRC="http://www.vb-world.net/ubb/rolleyes.gif"> :rolleyes: :rolleyes: :rolleyes: :rolleyes: :eek: :eek: :eek:Just testing.

The kind folks at VB World have added a Smilies legend so you can see what keys make what face..it's here
http://www.vb-world.net/ubb/smilies.html

Have fun!

I'm sorry, But i gotta test it
:p :cool: :rolleyes: :eek:

Thats fun ;)

Well :D
I guess that ALL others users are missing here! ;)

Jefferson

Hi,
I am simply amazed. The administrators of this site are due a congratulation. :eek:
Question: Is this being done with VB?
Al.


------------------
A computer is a tool, not a toy.
<A HREF="mailto:[email protected]
[email protected]">[email protected]
[email protected]</A>

This is the function I use;

'in declarations
Global Const Windows95 As Integer = 95
Global Const Windows98 As Integer = 98
Global Const WindowsNT3 As Integer = 3 'v3.51
Global Const WindowsNT4 As Integer = 4

Public Function OperatingSystem() As Integer
Dim OSInfo As OSVersionInfo
Dim RetValue As Integer

OSInfo.dwOSVersionInfoSize = 148
OSInfo.szCSDVersion = Space$(128)
RetValue = GetVersionExA(OSInfo)

With OSInfo
Select Case .dwPlatformId
Case 1
If .dwMinorVersion = 0 Then
OperatingSystem = Windows95
ElseIf .dwMinorVersion = 10 Then
OperatingSystem = Windows98
End If
Case 2
If .dwMajorVersion = 3 Then
OperatingSystem = WindowsNT3
ElseIf .dwMajorVersion = 4 Then
OperatingSystem = WindowsNT4
End If
Case Else
OperatingSystem = 0
End Select
End With
End Function

I think this was 'borrowed' from the MSDN CD.. it's good because you can do stuff like

If OperatingSystem=Windows95 Then...




------------------
Mark "Buzby" Beeton
VB Developer
[email protected]

Ooops - forgot the API decs;

Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVersionInfo) As Integer

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



------------------
Mark "Buzby" Beeton
VB Developer
[email protected]