Detect Opperating System

[Acoustic]

Is there a way to detect what opperating system is running on the machine your app is installed on? I've got a small program that needs to use certain unique registry keys in WinNT or Win98/95 depending on which version of the OS is present.

~A6

[crispin]

Paste this into a form with one command button:

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           '1 = Windows 95.
                                      '2 = Windows NT

       szCSDVersion As String * 128
End Type

Private Sub Command1_Click()
Dim X As Long
X = getVersion
If X = 1 Then MsgBox "WIN95"

If X = 2 Then MsgBox "WINNT"

End Sub
Public Function getVersion() As Long
     Dim osinfo As OSVERSIONINFO
     Dim retvalue As Integer
     osinfo.dwOSVersionInfoSize = 148
     osinfo.szCSDVersion = Space$(128)
     retvalue = GetVersionExA(osinfo)
     getVersion = osinfo.dwPlatformId
End Function