version del SO
ice_old
29 de Abril del 2004
como se puede detectar la version del sistema operativo vegente?
juanchato
29 de Abril del 2004
Con el siguiente c贸digo puedes detectar la versi贸n del SO en VB6:
* Primero crea un m贸dulo con el siguiente c贸digo:
Public Declare Function GetVersionExA Lib "kernel32" _
(lpVersionInformation As OSVERSIONINFO) As Integer
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
* Luego en tu formulario coloca la siguiente funci贸n:
Public Function getVersion() As String
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
Select Case .dwMinorVersion
Case 0
getVersion = "Windows 95"
Case 10
getVersion = "Windows 98"
Case 90
getVersion = "Windows Millennium"
End Select
Case 2
Select Case .dwMajorVersion
Case 3
getVersion = "Windows NT 3.51"
Case 4
getVersion = "Windows NT 4.0"
Case 5
If .dwMinorVersion = 0 Then
getVersion = "Windows 2000"
Else
getVersion = "Windows XP"
End If
End Select
Case Else
getVersion = "Failed"
End Select
End With
End Function
* Primero crea un m贸dulo con el siguiente c贸digo:
Public Declare Function GetVersionExA Lib "kernel32" _
(lpVersionInformation As OSVERSIONINFO) As Integer
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
* Luego en tu formulario coloca la siguiente funci贸n:
Public Function getVersion() As String
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
Select Case .dwMinorVersion
Case 0
getVersion = "Windows 95"
Case 10
getVersion = "Windows 98"
Case 90
getVersion = "Windows Millennium"
End Select
Case 2
Select Case .dwMajorVersion
Case 3
getVersion = "Windows NT 3.51"
Case 4
getVersion = "Windows NT 4.0"
Case 5
If .dwMinorVersion = 0 Then
getVersion = "Windows 2000"
Else
getVersion = "Windows XP"
End If
End Select
Case Else
getVersion = "Failed"
End Select
End With
End Function
ice_old
29 de Abril del 2004
Me da error y no se si es que debo declarar esta funcion en un modulo aparate o que?
Me dice que:
Error de compilacion
Los comentarios solamente deben aparecer despu茅s de end sub, end function o end property
Entonces como se har铆a?
Me dice que:
Error de compilacion
Los comentarios solamente deben aparecer despu茅s de end sub, end function o end property
Entonces como se har铆a?
juanchato
29 de Abril del 2004
He hecho la prueba copiando el c贸digo desde est谩 p谩gina y funciona bien; de la 煤nica forma que te puede salir ese error es si has pegado tambi茅n mis indicaciones en el c贸digo (* Luego en tu formulario coloca la...). ESO NO LO DEBES PONER!!!.
juanchato
29 de Abril del 2004
Ahora lo que yo necesito es complementar esto con un c贸digo para saber si un Windows 2000 es professional o server y si un windows Nt4 es WS o Server. Tambi茅n obtener el idioma del SO.
Cualquier ayuda al respecto me ser铆a de mucha utilidad.
Cualquier ayuda al respecto me ser铆a de mucha utilidad.
Yuval
29 de Abril del 2004
Muy buena la informacion de estos mensajes GRACIAS A TODOS