OS Version ??

fx sån.
(fra hjælp)

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

Private Sub cmdDetectOS_Click()
  Dim MsgEnd As String
  Select Case sysDetectOS.OSPlatform
      Case 0
        MsgEnd = "Unidentified"
      Case 1
        MsgEnd = "Windows 95, ver. "& _
CStr(sysDetectOS.OSVersion) & "(" & _
CStr(sysDetectOS.OSBuild) & ")"
      Case 2
        MsgEnd = "Windows NT, ver. " & _
CStr(sysDetectOS.OSVersion) & "(" & _
CStr(sysDetectOS.OSBuild) & ")"
  End Select
  MsgBox "System: " & MsgEnd
End Sub

hov....

Kan det ikke gøres vha. noget API sådan at man er fri for endnu en OCX/DLL ??

Du kan tilføje 'Microsoft SysInfo Control 6.0' til Toolbox.

  SysInfo1.OSPlatform

Værdien heraf:
Value Description
0 Win32s
1 Windows 95
2 Windows NT

Igen det jeg søger er noget API eller... noget som kan gøre det samme som SysInfo1.OSPlatform...

Private Declare Function GetVersion Lib "kernel32" () As Long
Public Function GetWinVersion() As String
    Dim Ver As Long, WinVer As Long
    Ver = GetVersion()
    WinVer = Ver And &HFFFF&
    'retrieve the windows version
    GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    MsgBox "Windows version: " + GetWinVersion
End Sub

Eller:

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
Private Sub Form_Load()
    Dim OSInfo As OSVERSIONINFO, PId As String
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'KPDTeam@Allapi.net
    'Set the graphical mode to persistent
    Me.AutoRedraw = True
    'Set the structure size
    OSInfo.dwOSVersionInfoSize = Len(OSInfo)
    'Get the Windows version
    Ret& = GetVersionEx(OSInfo)
    'Chack for errors
    If Ret& = 0 Then MsgBox "Error Getting Version Information": Exit Sub
    'Print the information to the form
    Select Case OSInfo.dwPlatformId
        Case 0
            PId = "Windows 32s "
        Case 1
            PId = "Windows 95/98"
        Case 2
            PId = "Windows NT "
    End Select
    Print "OS: " + PId
    Print "Win version:" + str$(OSInfo.dwMajorVersion) + "." + LTrim(str(OSInfo.dwMinorVersion))
    Print "Build: " + str(OSInfo.dwBuildNumber)
End Sub

Super Benny det var lige præsis det jeg ledte efter ;)