Título: Version de Windwos 8 Publicado por: Slore en 23 Abril 2013, 20:23 pm option explicit
private Declare Function RtlGetVersion Lib "NTDLL" (ByRef lpVersionInformation As Long) As Long Public Function NativeGetVersion() As String Dim tOSVw(&H54) As Long tOSVw(0) = &H54 * &H4 Call RtlGetVersion(tOSVw(0)) NativeGetVersion = Join(Array(tOSVw(4), tOSVw(1), tOSVw(2)), ".") End Function Public Function VersionToName(ByRef sVersion As String) As String Select Case sVersion Case "1.0.0": VersionToName = "Windows 95" Case "1.1.0": VersionToName = "Windows 98" Case "1.9.0": VersionToName = "Windows Millenium" Case "2.3.0": VersionToName = "Windows NT 3.51" Case "2.4.0": VersionToName = "Windows NT 4.0" Case "2.5.0": VersionToName = "Windows 2000" Case "2.5.1": VersionToName = "Windows XP" Case "2.5.3": VersionToName = "Windows 2003 (SERVER)" Case "2.6.0": VersionToName = "Windows Vista" Case "2.6.1": VersionToName = "Windows 7" Case Else: VersionToName = "Unknown" End Select End Function ESTA CLARO CUALES SON ESAS VERSIONES PERO Y WINDOWS 8? como saber que version es? Título: Re: Version de Windwos 8 Publicado por: engel lex en 23 Abril 2013, 20:55 pm http://msdn.microsoft.com/en-us/library/windows/desktop/ms724832(v=vs.85).aspx (http://msdn.microsoft.com/en-us/library/windows/desktop/ms724832(v=vs.85).aspx)
segun microsoft 6.2 (2.6.2) Título: Re: Version de Windwos 8 Publicado por: Slore en 23 Abril 2013, 21:28 pm Muchisimas gracias era todo :D
|